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1.0 INTRODUCTION 


This Program User's Guide was written to provide the user a set of 
instructions for the operation of the TRAP (Transient Analysis Program, 
HP014A). The guide fulfills a deliverable milestone for Task 705-1. With 
the exception of Section 2.2, this document is completely self contained. 
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2.0 PROGRAM DESCRIPTION 

2.1 Program Definition 

This program models the transient operation of auxiliary control 
propulsion systems (ACPS) . All components that are normally associated 
with ACPS have been modeled and include fluid lines, valves, line junctions, 
regulators, orifices, combustors, manifolds, turbopumps, accumulators, 
pressure regulators, and tanks. These components can be connected together 
in an arbitary manner to simulate a variety of ACPS configurations. 

2.2 Method of Solution 

The theory and mathematical derivation for this program is described 
in Reference 1. 
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3.0 USER'S INFORMATION 

3.1 Input Description 

A schematic of an auxiliary propulsion system is shown in Figure 1. 

This particular system was simulated for the sample case presented in 
Sections 3.1.11 and 3.2.4. 

The first step in preparing the input is to number each type of 
component from one to the number of the components of its type. The 
numbering of the components for the sample case is shown in Roman numerals. 
Each component described by a subroutine must.be separated from another 
component by a fluid line; e.g., a pressure regulator cannot be connected 
directly to a valve. Generally, if the components are closely coupled in 
practice, they have been modeled together in one subroutine; for instance, 
the thrust chamber valve and combustor. A flow direction must be assumed in 
each line. If the assumption is wrong , the flowrates computed by the program 
will have a negative sign. Generally, it makes no difference which 
direction is assumed, except that combustors must always be treated as being 
at the downstream end of a line. 

Data are input to the program on cards via the use of NAMELIST. There 
is no data tape input to this program. The description of the data used in 
operating this program is divided into sections to correspond to the dif- 
ferent elements of .the program. These sections are: 

3.1.1 General Input and Line Input 

3.1.2 Accumulator Input 

3.1.3 Combustor and Turbopump Input 

3.1.4 Flow Boundary Input 

3.1.5 Line Junction Input 

3.1.6 Pressure Boundary Input 

3.1.7 Friction Pressure Boundary Input 

3.1.8 Regulator Input 

3.1.9 Lumped Resistance Input 

3.1.10 TRWPLT Package 
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Figure 1. ACPS .Transient Program Demonstration Schematic 








3.1.1 General Input 

Tins section provides a description of the general input used in the 
program including a description of NAMELIST and its rules. 

The first card of the data deck is the NAMELIST name card which contains 
the characters $INDATA punched in columns 2-8. Following this card are the 
NAMELIST data cards. Rules for their use are given below. After the last 

NAMELIST data card, the NAMELIST end card must appear. This card contains 

the characters $END punched in columns 2-5. Following this card, a data 
deck end card must be present. It is a signal to TRAP to process the 

NAMELIST data. It contains the character DECKEND in columns 1-7. Certain 

data has been put into the program using the non-executable sub-program 
BL0CK DATA. For a list of these values and their applicability, see BL0CK 
DATA in the listing of the program given in Section 5.0. The values in 
BL0CK DATA can be overridden using NAMELIST. 

3.1. 1.1 Rules for Namelist Usage 

1) Card column 1 may not be used. All variable names may start in 
card columns 2-77. 

2) A variable name and its value must be on the same card; no 
continuations are allowed. If an array cannot be completed on one card, 
the array and the next location of the array to be used must be specified 
in the next cards . 

3) A delimiter (comma or decimal point) must directly follow the 
numerical value; a blank between the number and delimiter may cause an 
incorrect interpretation of the number. 

4) As many variable names and associated values as possible may be 
put on a single card as long as Rule (2) is not violated. 

5) A comma is required after every numerical value if more values 
or variables are to be put on the same card. 
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3.1. 1.2 General Input and Line Input 

A description of the general input to the program and the input required 

for operating the line model is included in this section. See Section 3.4.2 of 


Reference 1 for the assumptions and equations used in modeling the line. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

ALPHA(II) 

20 

deg. 

Angle line II makes with horizontal. 

BK(I) * 

8 

lbf/in 2 

Bulk modulus of elasticity of fluid 
(required only for liquid lines) . 

DELT 

scalar 

sec. 

Program time increment. 

DIAL (II) 

20 

in. 

Diameter of II th line. 

EL(I)* 

8 

lbf/in 2 

Young's modulus for lines contain- 
ing liquid. 

FACT0R 

scalar 

— 

1. + the maximum Mach number expec- 
ted in the line. 

FRL(II) 

20 

— 

Friction factor for line II. 

G 

scalar 

f t/sec^ 

Acceleration due to gravity. 

KAY (I) 

8 

— 

Ratio of specific heats of ith fluid 
(required only for gas lines) 

LFLAG(I) 

8 


Type of fluid flag for speed of 
sound calculations. 

0 = gas in line 

1 = liquid in line 

NPIPL 

scalar 

— 

Number of lines in system. Presently 
limited to 20. 

NPrPR(NN) 

. 10 


Integer Indicating number of time- 
steps between printouts of Summary 
Output during interval NN. For 
example, if NPIPR(NN)22, the pro- 
gram will print out the summary 
output at every other time step 
starting at TIME=0NIPR(NN) and 
ending at TIME=0FFIPR (NN) . See 
Section 3.2.3 for a list of the 
summary printout • 

NPPLT(NN) 

10 

— 

Same as NPIPR, but for plotted 
output. 

NPLINE(II) 

20 

8 

Phase flag for type of fluid in 
line II. 



MNEMONIC 


DIMENSION 


UNITS 


DESCRIPTION 


0EFIPR(NN) 

10 

- 

Time to stop printing the summary 
printout for the NNth summary print 
interval. 

0NIPRCNN) 

10 

* 

Time to start printing the summary 
output for the NNth summary print 
interval. 

0FFPLT (NN) 

10 

— 

Same as 0FFIPR, but for plotted 
output. 

0NPLT (NN) 

10 

— 

Same as 0NIPR, but for plotted 
output. 

PZOO(II) 

20 

psi 

Initial pressure at upstream point 
in line. 

RH0L(I) 

8 

lb /ft 3 

Density of fluid. 

RGAS(I) * 

8 

ft~lbf/lbm-°R 

Gas constant (not required for 
liquid lines) 

TGAS(I)* 

8 

°Ranlcine 

Temperature of gas in line (not 
required for liquid lines). 

TH (II) 

20 

in* 

Thickness of II th line (not required 
for gas lines) 

TIMEND 

scalar 

sec 

End time of program. 

XLENGL(II) 

20 

ft. 

-Length of line II 

ZO(II) 

20 

ft. 

Elevation of upstream end of line 
II. 


*Up to eight different fluids can be handled by the program. Each line is 
assigned a fluid by the array NPLINE. If there is a large change in fluid 
properties across a device, such as across a regulator, then the lines on 
each side of the device should be treated as having different fluids. 
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3.1.2 Accumulator Input 


The variables described in this section define the characteristics 


of the accumulators in the program. At present the * program is limited 

to two accumulators. See Section 3. 4. 4. 3 

of Reference 1 for the assumptions 

and equations 

used in modeling 

the accumulator. 

MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

I ACC (I) 

2 

— 

Index of line to which accumulator 
I is connected. 

IACCPR 

scalar 


Debug printout will be generated 
IACCPRth time through the accumulator 
subroutine. 

IENACC (I) 

2 


End of line IACC(I) to which accumu- 
lator is connected. 

1 « upstream end 

2 - downstream end 

NACC 

scalar 

— 

Number of accumulators in network. 

NPIA(NN) 

t— 1 

o 


Same as NPIPR, described in Section 
3.1. 1.2, but for the accumulator 
printout. See Section 3,1,2 for a 
list of the accumulator printouts, 

0EFIA(M) 

10 

“““ 

Same as 0FFIPR, described in 
Section 3.1# 1.2, but for the 
accumulator printout. 

0NIA(NN) 

10 


Same as 0NIPR, described in 
Section 3.1.1. 2 > but for the 
accumulator printout. 

PACC(I) 

2 

ft/in 2 

Pressure in accumulator I 

V0LACC (I) 

2 

Hi 

rt 

Volume of accumulator I 

XKACC(I) 

2 

ft 2 

Effective area of accumulator 
I port. 
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3.1.3 Combustor and Turbopump Input 


The following inputs are used in the combustor and turbopump subroutine. 
See Section 3.4.12 of Reference 1 for the assumptions and equations 
used in modeling the combustor and Section 3-4-14 of Reference 1 for the 
turbopumps. The program is limited to a total of six combustors and two 
turbopumps. A superscript C means combustor input and superscript T means 
turbopump input. If both appear together, then the variable is used by both. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

area(i,j)* ct 

(8,2) 

in 2 

Oxidizer and fuel thrust chamber 
valve effective area. 

fT 

AREAC(I) 

8 

in 2 

Area of combustor throat. 

ATDN0Z(K) T 

2 

in 2 

Effective cross-sectional area of 
turbine duct exit nozzle. 

cefi(k) t 

2 

— 

Coefficient in turbine efficiency 
curve. 

CEE2(K) T 

2 

— 

Same as above. Note: ETAT(K) = 

CEFl(K)* U/CVE1 + CEF2(lO*(WCVEL)*< 

OT 

CMAN(I,J) 

(8,2) 

in 2 

Oxidizer and fuel injector effective 
area. 


*Note: In these definitions I is the subscript for combustors and turbopumps, 

J is the propellant subscript with 1 being oxidizer and 2 being fuel. 
Turbopumps are entered in the arrays first. If no turbopumps are 
present* then the combustors are loaded in the first of the array. 

K is the subscript for variables which are used only in the turbo- 
pump portion of the routine. 


T 

CPI 

scalar 


Specific heat of turbopump fuel. 

CF2(L) T 

6 


Coefficients of polynomial giving 
specific heat for turbopump as a 
function of mixture ratio. 

Note: CP (I) ® CP2(1) + CP2(2) 

* MR(I) + CP2 (3) * MR(I) ** 2 + ... 



CS1 TC 

scalar 

ft/sec 

Characteristic velocity of pure fue 
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CS2(L) TC 

6 


Coefficients of polynomial giving 
characteristic velocity of chamber 
gases as a function of mixture ratio. 

TP 

DELTF 

scalar 

sec 

Time increment for combustor and 
turbopump. 

diat(k) t 

2 

in 

Diameter of turbine rotor. 

dtd(k) t 

2 

in 

Diameter of turbine exit duct. 

gr(k) t 

2 

— 

Pump to turbine gear ratio. 

TP 

ICHAM(I,J) 

(8,2) 

— 

Index of line oxidizer and fuel 
lines connected to ith combustor. 

TP 

ICHAMP 

scalar 

— — 

Combustor debug print flag. Print 
will occur every ICHAMP th DELTF 
time point. 

ipumi(k) t 

2 

— 

Index of line connected to pump 
inlet. 

IPUM0(K) T 

2 

— 

Index of line connected to pump 
outlet. 

isi tc 

scalar 

Ibf-sec/lbm 

Specific impulse of fuel alone. 

IS2(L) TC 

6 


Same as CS2 except used for specific 
impulse. 

mri tc 

scalar 

— 

Mixture ratio below which combustion 
gas may be treated as fuel alone. 

MW1 TC 

scalar 

lbm/lbm-mole 

Molecular weight of fuel. 

MW2(L) TC 

6 

— 

Same as CS2 except used for molecular 
weight. 

NCHAM C 

scalar 

— 

Number of thrust chambers. Limited 
to six. 

TP 

NC0EF 

scalar 


Number of coefficients in the following 
polynomials CS2, IS 2, MW2, and TC2. 

Must be set to the highest number 
of coefficients present in any one 
equation. Presently limited to six. 

nggtp t 

• scalar 

— 

Number of turbopumps. Limited to 


' too. 
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NPIC(NN) 


10 


NPIT(NN) 

10 


TP 

NPVALF(M) u 

8 

— 

TP 

NPVAL0 (M) 

R 

— 

0FFIC (NN) 

10 

— 

0FFIT (NN) 

10 

— 

0KIC(NN) 

10 

— 

0NIT (NN) 

TC 

0PVALF(M,U) 

10 

(8,60) 

— 

0PVAL0(M,N)’ 1 

(8,6) 

— 

P0WO (k) t 

2 

— 

P0W1(K) T 

2 

— 

P0W2(K) T 

2 

— 

P0W3 (K) T 

2 

— 

pwo(k) t 

2 

— 

PW1(K) T 

2 

— 

PW2(K) T 

2 




Same as NPIPR described in Section 

3.1. 1.2, but for the combustor 
printout and based on the combustor 
time increment DELTF. See Section 
3. 2. 2.1 for a list of the combustor 
printout. 

Same as NPIC, but for the turbopump 
output. 

Number of points in Mth table of 
0PVALF vs TMVALF. 

Same as above except for 0PVAL0 
vs TMVAL0 . 

Same as 0FFIPR, described in Section 

3.1. 1.2, but for the combustor 
printout. 

Same as 0EFIC, but for the turbopuiap 
output. 

Same as 0NIPR, described in Section 

3. 1.1. 2, but for the combustor 
printout. 

Same as 0NIC> but for the turbopump 
output. 

Tables of valve injector discharge 
coefficient versus time for fuel 
system. 

' Same as above except for oxidizer 
system. 

Coefficients in power vs. flowrate 
at design speed curve. 

(P0WP=P0W0 (K.) + ••■+ P0W3 (K)*WP**3) 

Same as above 

Same as above 

Same as above 

Coefficients in pressure vs. flowrate 
curve at design speed. 

Same as. above 

Same as above 
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bpmpd(k) t 

2 

rpm 

tci tc 

scalar 

°R 

TC2(L) TC 

6 

— 

TP 

TMVALF(M,N) 

(8,60) 

sec 

TP 

TMVAL0(M,N) 

(8,60) 

sec 

TP 

VMAN(I,J) 

(8,2) 

* 3 
xn 

V0LC (I) TC 

8 

^ 3 
in 

XITP (K) T 

2 

lbm-in 

XLTD (K) T 

2 

ft 


Pump design speed 

Temperature of pure fuel 

Same as CS2 except used for temperature 
of combustion chamber products* 

Table of time for valve discharge 
coefficient for fuel* 

Same as above except for oxidizer* 

Oxidizer and fuel manifold volume 
tb 

Volume of x chamber 

Moment of inertia of turbopump 
rotor* 

Length of turbine exit duct. 
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3.1.4 Flow Boundary Input 


The following inputs impose a flowrate boundary at the end of a line. 
See Section 3.4. 4.1 for the assumptions and equations used in modeling a 
flow boundary. The boundary may be varied as a function of time and at 
present, there can be ten flow boundaries. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

DFBL (I , J) 

(10,50) 

Ibm/sec 

Table of flowrates at boundary I* 

IFBL(I) 

10 


Index of line to which flow boun- 
dary (DFBL) is attached* If the 
line is downstream of the boundary 
use the negative of the line index 
value. 

NFBL 

scalar 

— 

Number of flow boundaries* 

NPFBL (I) 

10 

— 

Number of points in table of DFBL 
vs* TFBL for flow boundary I. 

TFBL(I, J) 

(10,50) 

sec 

Table of times at which flow 
boundary I occur. 
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3*1.5 Line Junction Input 

The variables described in this section provide the information 
necessary to form a junction of more than one line. See Section 3.4.8 of 
Reference 1 for the assumptions and equations used in modeling a junction. 
At present there may be ten junctions in the program, each capable of 
connecting up to five lines. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

IJUNCL (I , J) 

(10,5) 


Indexes of J lines which form 
the ith junction. If the line is 
downstream, input the negative of 
the line index value. 

NJUNCL 

scalar 

— 

Number of junctions. 

NLINJU (I) 

10 

— 

Number of lines at the ith junc- 
tion. 
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3.1.6 Pressure Boundary Input 


The pressure boundary inputs allow the program to compute a flowrate 
at the end of a line provided the pressure is a function of time. See 
Section 3* 4* 4.1 of Reference 1 for the assumptions and equations used 
in modeling a pressure boundary. There are ten possible pressure boundaries 
in this program. 


MNEMONIC ' 

DIMENSION 

UNITS 

DESCRIPTION 

IEND(I) 

10 


End of line I to which pressure 
boundary is connected. 

1- upstream end 

2- downstream end 

IPB(I) 

10 

— 

Index of line to which pressure 
boundary I is connected. 

NPBL 

scalar 

— 

Number of pressure boundaries. 

NPRBL(I) 

10 

— 

th 

Number of points in i table of 

PPRBL vs. TPRBL. 

PPRBL (I , J ) 

(10,50) 

psia 

Table of time dependent pressures 
for pressure boundary I. 

XPRBL (I , J ) 

(10,50) 

sec 

Table of times at which pressures 
occur for pressure boundary I. 
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3.1.7 Friction Pressure Boun dary 

This section describes the inputs used for defining the friction 
pressure boundaries. The program will calculate a flowrate and pressure 
immediately do’tmstream of the resistance for a pressure and lumped 
resistance at the end of a line which are functions of time. See Section 
3.4. 4. 2 of Reference 1 for the assumptions and equations used in modeling 


a friction pressure boundary. At present there can be ten such resistances. 


MNEUMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

IENDF(I) 

10 


End of line at which friction- 
pressure boundary I is connected. 

l=upstream end 
2=downstream end 

IPBF (I)' 

10 

— 

Index of line IENDF(I) at which 
friction pressure boundary is 
connected. 

NPBLF 

scalar 

— 

Number of friction pressure boun- 
daries . 

NKPBLF(I) 

10 

— 

til 

Number of points in i table of 

XKPBLF vs. TKPBLF. 

NPPBLF (I) 

10 

— 

Number of points in i^ table of 
PPBLF vs. TPBLF. 

PPBLF (I,J ) 

(10,50) 

psia 

Table of pressures at friction 
pressure boundary I. 

TKPBLF (I , J ) 

(10,50) 

sec 

Table of times at which effective area 
XKPBLF occurs at friction pressure 
boundary I. 

TPBLF (I, J) 

(10,50) 

sec 

Table of times at which pressures 
PPBLF occur at friction pressure 
boundary I. 

XKPBLF (I, J) 

(10,50) 

ft 2 

Table of effective areas at 
friction pressure boundary I. 
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3.1.8 Regulator Input 


This section presents a description of the input variables used for 


defining the regulator. See Section 3.4.10 of Reference 1 for the assump- 
tions and equations used in modeling a regulator. At present, the program 
is limited to eight regulators. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

AREGMX(I) 

8 

. 2 
in 

Maximum flow area of regulator I. 

AREGP (I) 

8 

. 2 
in 

Effective area for pressure balance 
for regulator I. 

FREG(I) 

8 

Ibf 

Spring force acting when regulator 
valve is shut. 

IREGPR 

scalar 


Every IREGPR^ point will be 
printed when debug print is called 
for. 

LREGDN(I) 

8 

— 

Index of line to which downstream 
side of regulator is connected. 

LREGUP (I) 

8 

— 

Index of line to which upstream 
side of regulator is attached. 

NREG 

scalar 

— 

Number of regulators in system. 

NPIR(NN) 

10 

> 

Same as NPIPR, described in Section 
3. 1.1. 2, but for the regulator print- 
out. See Section 3. 2. 2. 3 for the 
regulator printout. 

0FFIR(NN) 

10 

— 

Same as 0FFIPR, described in Section 
3. 1.1.2, but for the regulator printou 

0NIR(NN) 

10 

— 

Same as 0NIPR, - described in Section 
3.1.1. 2, but for the regulator printou 

PREF(I) 

8 

Ibf / in 2 

Regulator reference pressure. 

QREG(I) 

8 

in 2 /in 

Constant relating regulator flow 
area to spring position. 

SPREG(I) 

8 

Ibf /in 

Regulator spring constant. 

TAUREG(I) 

8 

sec 

Regulator time delay. 
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3.1.9 Lumped Resistance Input 

.This section describes the input which allows the user to form lumped 
resistances within the feed system. Lumped resistances may be used to 
describe the losses in valves, orifices, discontinuities in pipe sizes, 
and bends. See Section 3.4.6 of Reference 1 for the assumptions and equations 
used in modeling a lumped resistance. At present, the program allows ten 
lumped resistances to be used. 


MNEMONIC 

DIMENSION 

UNITS 

DESCRIPTION 

LVDN(I) 

10 

— 

Index of line to which downstream 
end of resistance is connected. 

LVUP (I) 

10 

— 

Index of line to which upstream 
end of resistance is connected. 

NVALL 

scalar 

— 

Number of lumped resistances. 

NXKVL(I) 

10 

— 

Number of points in i*"* 1 tables of 
XKVL versus TMVL. 

TMVL(I,J) 

(10,50) 

sec 

til 

Independent table of times for i 
resistance. 

XKVL(I, J) 

(10,50) 

ft 2 

Dependent table of lumped resis- 
tances effective area for l 


resistance. 
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3.1.10 TRW Plot Package 


This section is a condensed version of TRW Report No. 11176-H-594- 
.RO-OO, dated August 1970, and is included as a user's guide for operating 
the plot package which is a part of the ACPS transient program (HP014A). 

The description of this package is divided into three sections and describes 
the following: (1) Data tape format, (2) Data deck description, and (3) 

control card description. 

The data tape generated by HP014A for use by the plotting program, 
(TRWPLT) has three record format types. A Type One record contains time 
and flowrate pressure data for the first and last node of each line. A 
Type Two record contains time and combustor turbopump data. A Type Three 
record contains time and regulator, accumulator, lumped resistance, and 
friction pressure boundary data. The order of data in each record type is 
as follows : 

Type One Record - 

Word 1 - record identifier, =1 

Word 2 - number of data words in record, =4*NPIPL + 1 
Word 3 - program time 

Word 4 - 3+4*NPIPL - flowrate and pressure data for first and 
last node in each line. 

Type Two Record - 

Word 1 - record identifier, =2 

Word 2 - number of data words in record, =1 + 14* (NCHAM+NGGTP) + 
8*NGGTP 

Word 3 - Combustor time 

Word 4 - 3 + 14* (NCHAM+NGGTP) + 8*NGGTP - combustor and turbopump 
data 

Type Three Record - 

Word 1 - record identifier, =3 

Word 2 - number of data words in record,^! + NREG+NACC+2*NPBLF+ 
NVALL 

Word 3 - Program time 

Word 4 - NREG + NACC + 2*NPPBLF + NVALL - data from regulator, 
accumulator and lumped resistance and friction 
pressure boundary data. 
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The number of data records written on the tape will be 1 + 3* 
(TIMEND/DELT/IPL0T) . The user has the option to control the number of 
times plot data is written through the input by variable IPL0T. 

Section II: DATA DECK DESCRIPTION 

Four cards are required to generate data for one plot, A description 
of these four cards is listed below followed by a description of various 
options available to the user. 

1. PL0T - Specifies the variables to be plotted (must be input 
for each plot). 

The variables to be plotted may be specified either by 
BCD symbols or by the location of the variable in the record. 

The BCD symbols used in this program are shown in Table 1. 

The specification by location in the record is not given 
because the relative positions change depending on the con- 
struction of the network. 

A. Specification by BCD symbols: 

PL0T = XSYM, IRECX, YSYM , IRECY , YSYM , . .., YSYM , 

IRECY , ENDLST n 

n 

where 

XSYM denotes the BCD symbol of the abscissa variable, 
IRECX denotes the record type in which^SYM will be found, 
YSYM^ denotes the BCD symbol the the i ordinate variable 
(1=1, n where max n = 10), 

IRECY denotes the record type in which YSYMj_ will be found, 
ENDLST terminates the list of symbols and record types. 

The resultant graph will consist of n traces, XSYM vs. 

YSYM,, XSYM vs. YSYM-, ..., XSYM vs. YSYM . 

1’ 2 n 

Examples : 

PL0T = Time, 1, PlL, 1, P2L, 1, ENDLST 

Two traces will be plotted on the graph, PlL vs. Time 
and P2L vs. Time 

where the data for Time is in record type 1, 
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TABLE 1. BCD PLOT SYMBOLS 


Record Type One: 


BCD 

Symbol 



Description 

TIME 



Run time 




WiF, 

rH 

1! 

•H 

20 

Flox<frate, 

line 


first node 

WiL, 

i ” 1» 

20 

Flowrate , 

line 


last node 

PiF, 

i “ 1 » 

20 

Pressure, 

line 


first node 

PiL, 

i = X, 

20 

Pressure, 

line 

i , 

last node 


Record Type 

Two : 



TIMEF 





Chamber integration time 

PCHAM. , 

l 

i 


1, 

8 

Chamber pressure, chamber^ 

WCHAM. 

l 

"1 

ss 

1, 

8 

Weight of propellant in chamber, chamber^ 

CSTAR. , 

l 

i 

= 

1, 

8 

Characteristic velocity, chamber^ 

PMAN1 . , 

i 

X 

= 

1. 

8 

Manifold pressure, ox side, chamber^ 

PMAN2 . , 

i 

i 


1, 

8 

Manifold pressure , fuel side, chamber ^ 

ISP. , 

l 

i 


1, 

8 

Specific impulse, chamber^ 

MR. , 

l 

i 


1, 

8 

Mixture ratio, chamber 

MW. , 

l 

i 

- 

1, 

8 

Molecular weight, chamber^ 

WFUEL . , 
1 

i 

= 

1, 

8 

Weight fuel in chamber, chamber^ 

W0X ±> 

i 


1, 

8 

Weight x in chamber, chamber ^ 

cvi i . 

i 

= 

1, 

8 

Ox valve discharge coefficient, chamber^ 

CV2. , 

i 

i 

= 

1, 

8 

Fuel valve discharge coefficient, chamber 

WIN J1 . , 

i 

i 

== 

1, 

8 

Ox injector flowrate, chamber,. 

WINJ2 . , 

l 

i 


1, 

8 

Fuel injector flowrate, chamber^ 

TIMPL , 

i 

i 


1, 

6 

Total impulse, combustion chamber 

P0WP . , 

l 

i 


1, 

2 

Pump input power, turbopump ^ 

P0WT i> 

l 


1, 

2 

Turbine power, turbopump 

210 

i 

= 

1, 

2 

Pressure at turbine outlet, turbopump^ 

RPMT . , 
1 

i 


1, 

2 

Turbine speed, turbopump, i 

T^RP^ , 

i 

= 

1, 

2 

Pump torque, turbopump^ 
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T0RT ± , 

TT0 ± , 

WTDN0Z 

Record 

AKEG^, 

PACC. , 
1 

PBNDL . 
1 

XKP i , 

XK 1 , 


2 . 

3. 


4 . 


Turbine torque, turbopump ^ 

Turbine outlet temperature, turbopump ^ 

Flowrate through turbine duct exit 
nozzle, turbopump 

Regulator flow area, regulator^ 

Pressure in accumulator. 

i 

Pressure at boundary^ 

Effective flow area at pressure boundary, 
with friction 

Effective flow area at lumped resistance^ 

where the data for P1L is in record type 1, and 
where the data for P2L is in record type 1. 

PL0T = TIMEF, 2, CSTARI, 2, GSTAR2, 2, CSTAR3, 2, ENDLST 
Three traces will be plotted on the graph, 

CSTARI (Record type 2) vs. TIME? (Record type 2), 

CSTAR2 (Record type 2) vs. TIMEF (Record type 2), 

CSTAR3 (Record type 2) vs. TIMEF (Record type 2). 

ENDPLT - This card marks the termination of the inputs for 

one plot. 

ENDFIL - The appearance of this card marks the termination of 
the inputs for one file and causes that file of data to be 
plotted. 

ENDRUN - This card marks the termination of all inputs, causes 

a wrap-up to occur and control to exit the program. 

NOTE: The symbols, ENDPLT, ENDFIL, and ENDRUN must 

appear on a separate card from other inputs. 

To generate more than one plot per file, cards 
1 and 2 would be repeated for as many plots as 
desired. 


i = 1, 2 
i = 1, 2 
i = 1, 2 

Type Three: 

i = 1, 8 
i = 1, 2 
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The following three cards are used to create labels 
on the plots. It should be noted that once these inputs 
are defined by the user they will be used on all sub- 
sequent plots until changed or deleted. All cards are 
66 characters in length. Each symbol must be followed 
by = ID = which indicates any combination of characters 
may follow. 

TITLE - Graph title; printed at the top of the graph. 

EX: TITLE = ID = USER'S SAMPLE GRAPH TITLE 

XLABEL - X-axis title; printed below the independent 
variable axis. EX: XLABEL = ID = USER'S SAMPLE 

X-AXIS TITLE 

YLABEL - Y-axis title; printed to the left of the 
dependent variable axis. EX: YLABEL = ID - 

USER'S SAMPLE Y-AXIS TITLE 

TEWPLT automatically scales the data and optimizes 

the limits of the plots to insure that all data points 

are included. However, provision is made for the user 

to input his own scales instead of using the TRWPLT 

automatic logic. If the scales are user input they will 

continue to be utilized for each plot until changes by 

the addition of the following cards. 

ISCALX - abscissa scale selector 

= 0 TRWPLT will optimize scaling 
= 1 Input limits will be used 

NOTE: If set = 1 in plot A, and set = 0 in plot B, the 
“ " * scales from plot A will be 'used in plot B also. 

ISCALY - ordinate scale selector 
= 0 TRWPLT will do scaling 
= 1 Input limits will be used 

HOTE: The note concerning ISCALX also applies to ISCALY. 

XL0 - lower limit for the X-axis 



11. XHI - upper limit for the X-axis 

12. YL0 - lower limit for the Y-axis 

13. YHI - upper limit for the Y-axis 

NOTE: If both XL0 and XHI are zero, then the limits 

will be set equal to the minimum and the maximum 
of the abscissa data points. If both YL0 and YHI 
are zero, then the limits will be set equal to the 
minimum and maximum of the ordinate data points. 

In conjunction with the note on card 8, the only 
way to return to automatic scaling is to set both 
limits, XL0 and XHI, YL0 and YHI to zero. 

The next two options are very useful in multi-file and 
multi-reel plotting. 

14. REPEAT - The card causes the next file of the data tape (or a 

new data tape) to be read and processed with the same 

inputs as in the preceding file. 

NOTE: The symbol REPEAT must appear on a separate card 

from other inputs. No new inputs may be used 
with this option except for the next card. 

15. KUNIT - The number of the tape unit on which the input data 

tape is mounted (initialized to 8), Units 2, 4, 12, and 

13 are used for working storage and cannot be used. 

Although the description of TRWPLT discussed in this 
section has not presented all of the options available to 
the plot program, those described will allow the user a 
fair degree of sophistication in plotting data from the 
HP014A Program. 

Section III: DESCRIPTION OF CONTROL CARDS 

Because of the possibility of a double execution of HP014A and 
TRWPLT, control cards for both programs are discussed below: 

1. Control cards for HP014A 

Card Column 

12345678. . . .61-74 

A. V P A R U N A FI, F2, F3, F4, F5, F6, F7, F8, F9, F10 NAME 

B. V ASG X = aaaaa 
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c. 

V XQT 

CUR 

D 

TRW 

X 

E. 

IN 

X 

F. 

TRW 

X 

G. 

VQ XQT 

HP014A 

H. 

HP014A DATA DECK 

I. 

V E0F 


Description: 


A. 

The fields 

for card A. are as follows: 


P - Priority indicator, either A, P, or Z. A priority 
code must be present* 

a) n A n - Special priority to be used only with 
approval of the MSC operations monitor or shift 
supervisor. 

b) n P Tf - Standard priority to be used for EXPRESS 
jobs and for those groups that have been autho- 
rized priority for specific jobs. 

c) "Z 11 - To be used for all nominal work. 

FI - Six character badge number 

F2 - Division code 

F3 - Building, box number 

F4 - Project number (1~6 characters) 

F5 - Program number (1-6 characters) 

F6 - Type run (1 character) 

F7 - Estimated time for run (min) 

F8 - Estimated hundreds of pages output for run 
F 9 - Print channel 
F10 - Punch channel 
Name - Programmer^ name 

Fields FI - F6 are always required. Fields F7 - F10 are 
optional. System will use 3 minutes and 100 pages for 
F7 and F8, respectively, if not input. 

B. aaaaa is the tape number of the program tape 

C. Execute the complex utility routine to manipulate tapes. 

D. Rewind tape X to load point 

E. Read program into PCF area 
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F. Rewind tape X to load point 

G. Execute the program 

H. Data deck 

I. End of file card 


2. Control cards for HP014A and TRWPLT 


Card Column 
12345678. 


A. 

V p 

RUN FI, F2, . . 

B. 

V 

ASG X = aaaaa 

C. 

V 

ASG Y = STRWPL 

D. 

vw 

ASG F = W0RK1 

E. 

vsw 

ASG P = CCP1 

F. 

V 

XQT CUR 

G. 


TRW X 

H. 


IN X 

I. 


TRW X 

J. 

VQ 

XQT HP014A 

K. 


HP014A DATA DECK 

L. 

V 

XQT CUR 

M. 


ERS 

N. 


TRW Y 

0. 


IN Y 

P. 

V 

XQT TRWPLT 

Q. 


PL0T DATA DECK 

R. 

V 

E0F 


61-74 

F10 NAME 


Description: 

A,B. Discussed in Part 1 

- C. Identifier to direct the operator to allow the program 
to use permanent fastrand file TRWPL 

D. Work tape containing the plot data for TEWPLT 

E. CALCOMP plot tape 
G-L. Discussed in Part 1 

M. Clear the PCF area 

N. Position lead head on Y to selected file 

O. Read TRWPLT into PCF area 
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P . Execute TRWPLT 

Q. TRWPLT data deck 

R. Discussed in Part 1 

If the user wishes to save the plot data in order to 
plot it at a later time, the following changes should 
be made. 

a) Remove card C 

b) Change card D to 
VSW ASG F=SAVE 

c) Remove cards L-Q 

3. Control cards for TRWPLT 
Card Columns 

12345678. . . 61-74 

VP RUN FI, . . F10 NAME 

V ASG Y = TRWPL 

V ASG F = aaaaa 

V XQT CUR 

TRW Y 
IN Y 

VQ XQT TRWPLT 

TRWPLT DATA DECK 

V E0F 

All cards necessary to use the TRWPLT subroutines have 
been explained except C. Card C contains the number 
of the data tape to be plotted. 

Section IV. LISTING OF SAMPLE CASE PLOT DECK 

A listing of the plot deck prepared for the sample case shown in 

Figure 1 is presented on the following pages. 

It should be noted that the user has the ability to use this plot 

package to cross plot; i.e., to plot variable against variable, in addition 

to the variable against time. It is also possible to plot variables from 

one record type against variables from another record type. For examples 

of plotted output see Figure 39 of Reference 1. 


A. 

B. 

C. 

D. 

E. 

F. 

G • 
H. 
I* 


29 



»QN XQT TRWPLT 

ICC0MP*1 

KUNIT=8 

ISCALX* 1 

XLO=0«0 

DELX=0o05 

PPNM=4oO 

XLA8EL= I D=ELAPSED TIME SEC 

YLABEL=ID=LINE PRESSURE LBF/SO-IN 

T I TLE* I D=P I PE 1 NODE 1 
PL0T=TIME»1»P1F»1,ENDLST 
ENDPLT 

TITLE=ID= PIPE 1 NODE 9 

PLOT* T IME >l»PXL»lsENDLST 
ENDPLT 

T I TLE* ID* PIPE 2 NODE 1 

PLOT* TIME* 1 »P2F*1 9 ENDLST 
ENDPLT 

T I TLE* ID= PIPE 2 NODE 3 

PLOT* TIME* 1 *P2L*1 »ENDLST 
ENDPLT 

TITLE* ID= PIPE 3 NODE 1 

PLOT*T IME *1»P3F*1*ENDLST 
ENDPLT 

TITLE=ID= PIPE 3 NODE A 

PLOT=TIME*l*P3L*l »ENDLST 
ENDPLT 

T I TLE* I D= PIPE 4 NODE 1 

PLOT = T IME * 1 * P4F * 1 *ENDLST 
ENDPLT 

T I TLE* I D= PIPE 4 NODE 4 

PLOT* TIME * 1 *P4L *1 *ENDLST 
ENDPLT 

YLABEL=ID=LINE FLOW RATE LBM/SEC 
T ITLE=ID= PIPE 1 NODE 1 

PLOT* TIME * 1 * W1F * 1 *ENDLST 
ENDPLT 

T ITLE* I D= PIPE 1 NODE 9 

PLOT=TIME * 1 *W1L *1 *ENDLST 
ENDPLT 

TITLE=ID* PIPE 2 NODE 


1 



LO 

H 


PL0T=TIME»1*W2F»1»ENDLST 

ENDPLT 

T I TLE= I D= PIPE 2 NODE 3 

PLOT = TIME* 1 » W2L ? 1 »ENDLST 
ENDPLT 

TI TLE= I D= PIPE 3 NODE 1 

PLOT=TIME » 1 » W3F * 1 >ENDLST 
ENDPLT 

TITLE=ID= PIPE 3 NODE 4 

PLOT = TIME?1*W3L?1»ENDLST 
ENDPLT 

T I TLE= I D= PIPE 4 NODE 1 

PLOT = TIME» 1 »W4F 9 1 »ENDLST 
ENDPLT 

TITLE=ID= PIPE 4 NODE 4 

PLOT = TIME 9 1 » W4L »1 *ENDLST 
ENDPL T 

YLABEL=ID= CHAMBER PRESSURE 

T I TLE= I D= CHAMBER PRESSURE 

PL0T=TIMEF,2*PCHAM1*2»ENDLST 
ENDPLT 

YLABEL= I D= PROPELLANT WEIGHT 

TITLE=lD= PROPELLANT WEIGHT 

PLOT=TIMEF,2 >WCHAM1 »2 »ENDLST 
ENDPLT 

YLA3EL= I D= CSTAR FT/SEC 

TITLE“ID= CSTAR 

PLOT=TIMEF,29CSTARl52»ENDLST 
ENDPLT 

YLA«EL=ID= MANIFOLD PRESSURE 

TITLE=ID= MANIFOLD PRESSURE 

PLOT = TIMEF,2 jPMANll >2 »ENDLST 
ENDPLT 

T I TLE= I D= MANIFOLD PRESSURE 

PLOT=TIMEF,2»PMAN21 j2*ENDLST 
ENDPLT 

YLABEL=ID a SPECIFIC IMPULSE 

T I TLE= I D= SPECIFIC IMPULSE 

PLOT=TIMEF,2 9 ISP1 »2 »ENDLST 
ENDPLT 

YLA8EL= I D= MIXTURE RATIO 


LBF/SQ-IN 

IN CHAMBER LBM 
IN CHAMBER 

LBF/SQ-IN 

— OX SIDE 

— FUEL SIDE 


SEC 



T ITL£= I D= MIXTURE RATIO 

PLOT- TIMER? 2 »MR1 9 2 9 ENDLST 
ENDPLT 

YLAB£L=ID= MOLECULAR WEIGHT 

TITLE=ID= MOLECULAR WEIGHT 

PLOT= TIMER , 2 »MW1 9 2 9 EIMDLST 


ENDPLT 

YLABEL=ID= FUEL WEIGHT LBM 

T I TLE= I D= RUEL WEIGHT 

PLOT = TIM£R , 2 jWRUELl j2 »ENDLST 
ENDPLT 

YLABEL= I D= OXIDIZER WEIGHT LBM 

TITL£=ID= oxidizer weight 

PLOt=TIMEF9 2 9WOX1 9 2 9 RNDLST 


ENDPLT 

YLABEL=ID= VALVE DISCHARGE 

TITLE=ID= valve discharge 

PLOT= TIMER »2 9 CVII » 2 9 ENDLST 
ENDPLT 

tulf=id= VALVE discharge 

PLOT=T I MER 9 2 ?CV21 9 2 9 ENDLST 


COERRICIENT 

COERRICIENT 


COEFRICIENT 


OX SIDE 


FUEL C IDE 


ENDPLT 

ylabel^id 12 manifold flowrate 

T I TLE= I D= MANIFOLD RlOWRATE — 

PL0T=TIMEF*2»WINJ1192»ENDLST 

ENDPLT 

title=id= manifold flowrate — 

PLOT=TIMEF 9 2 9WINJ21 ?2 9 ENDLST 

ENDPLT 

ylabel=id= power input to pump 

title=id= power input to pump 

PLOT=TIMEF»29POWPI ?2»ENDLsT 


LBM/ SEC 
OX SIDE 


FUEL SIDE 


ft-lbf/sec 


ENDPLT 

ylabel=id= TURBINE POWER 
TITLE^ID 15 TURBINE POWER 
PL0T=TIMEE»2»P0WT1 ,2»ENDLsT 


FT-LBF/SEC 


ylabel=id- pressure at turbine outlet 

title=id= PRESSURE At turbine outlet 

PL0T=TIMEF,2 9PT01 9? 9 ENDLST 


LBF/SQ-IN 


ENDPLT 



u> 


YLA8EL® I D= TURBINE SPFED 

TlTLE=ID= TURBINE SPFED 

PLOT«TIMEF,2»RPMTl,2*ENDLsT 

enpplt 

Y LABEL® I D= PUMP TORQUE 

T I TLE= I D= PUMP TORQUE 

PLOT=TIMEF»2»TORP1 ,2»ENDLsT 
endplt 

YLABEL® I D= TURBINE TORQUE 

T I TLE= I D= TURBINE TORQUE 

PLOT = TIMEF,2 »TORTl ,2 *ENDLc;T 
ENDPLT 

YLABEL=ID= TURBINE OUTLET 

T I TLE= I D= TURBINE OUTLET 

PL0T®TIMEF,2»TT01 ?2 tENDLST 
ENDPLT 

YLABEL=ID= FLOW RATE THRU 

TITLE=ID= FLOW RATE THRU 

PL0T=TIMEF,2 »WTNOZl»2»ENDL5T 

ENDPLT 

ENDFIL 

ENDRtJN 

*EB PMD 

* EOF 


REV/MIN 


FT“LBF 


FT-LBF 


TEMPERATURE DEGREES R 
TEMPERATURE 


TURBINE DUCT EXIT NOZZLE 
TURBINE DUCT EXIT NOZZLE 


LBM/SEC 


FOE « 



3.1*11 Sample Namelist Input 

The following pages contain a sample listing of the input required to 
simulate the ACPS propulsion system shown in Figure 1. 
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C A R r> 
NO 


2 

3 

* 

5 

6 

1 

8 

9 

10 
1 1 
\ 2 
1 3 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
2 ? 

30 

31 

32 

33 
3<* 

35 

36 

37 

38 

39 
*Q 
4l 
*1 2 
*13 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 
5b 
NO 


C °L 1 2 3 4 5 6 7 6 

1 23456/0901234567890 1 23 4b 67b 90123 446/8 7 Ul 2 34 b6789O123456789Ol234b6709Ol234&6789ao 
51NUATA * 

in l r*«ooi * * 

l>fLTF«.Q00i * 

7 l MENU = «3 * 

OMAN) “U • 0 * * 

UFHAfj )«,00J » * 

ON 1L < 1 ) sO c O , 0 

off i c u i «.oo i , * 

OHIPKmaO.Oi „ 

off i p h i i Uiooi t o 

OniKU) aQ«0» 0 

OF F I h ( 1 ) "#Q01 * * 

UNlTIl) ® 0 ■ 0 * * 

OFF 1 I t 1 la . 001 t O 

NP I a l 1 1 * 1 Q* 1 ♦ * 

NP 1C ( i 1 » loo 1 * o 

NPlPKtl JMO'l t * 

HP 1R 1 1 I »1 0* 1 ' * 

KFinii aja*i, o 

I P L 0 7 = 1 * o 

HPPLT»lt « 

OflPLT H 1 »CJ • , 0 

OFF PL T 1 1 >»20. • * 

FaCT 0K*1*2, a 

1NC.L 117 ) «i , 0 

1NCL (IV ) »1 i * 

CL 11 / >*250a«0 * 

CL W V 1 *2bOQiO o 

XLTD<W«5'0, c 

NpIPL*19, o 

« NGGfPal * 9 

® NCHAM«4 , * 

° LFL ACj» 8 oO * t p 

0 AktAc^O. 26 * 3 ° 3 • 3 9 » 0 ♦ 4 3 7 .* o 

* 1 CHAM 11.1) » 6 « IChAHI 1 ,?JbI 0 # * 

* lCHAH(2»n*>2» ICFtAM<2,?>*7* o 

* ICHAfl l 3 f 1 > «3 # 1 CHAM 3 ,?) = 8 , p 

0 1 C HAM l 4 * 1 ) »4 > ICHAM1H » ? 1 =9 ♦ * 

* lCHAMlS,n*<5» 1 C N A M 1 5 , ) = 1 4 ♦ o 

* VuLC i 1 ) *6 . 84 t 3« 1 0 1 • 8 , 1 3* 1 , c 

o F&AS1 1 >*3*48*3, 4*766o0i o 

* TbAS ( 1 1*7*500.0 , o 

* KAY l 1 >«3M. 495,4*1 .36/, o 

® RhOLl 1 )°3*28i2*98»2«>3U*no376iO#2O7.O«i88*O«1503*4*43t « 

0 P2U0a4*bb0*t5t)0#*40O*>4*bb5*i3M05D«i5U5*»2M05O**50**4n5..bO.* o 

9 D]AL(l)A2«9&i3M'7t2»O»o576t3*l’7«2"7&t3*6«Q»2'9SO»3*&'0'l«ft36t6'O»' * 

* Xl-ENbL < \ i «*6ob ,U ,3 »20 .0 15 . 0 ,70 # 0 » d 

0 VMANC t » 1 )aO*6B4 4 VMANt 1 .*2)»2«736 » n 

* VHAhlZipsjOilBi VHAHU.2)B3Q>&H f o 

o VMAN<3i 1 VMAN l 3,2 1 = 30*54 , » 

o VMAN (4, 11 = 10. 18* VMAN 14 t 2 )c30.b4 , * 

® VHAH l bt 1 )*1 .3 10 . VMAN < 5.2 )*3 pV 30 , o> 

0 4COLF»H,MKl c *.b»MVU*7.ai6»TLl*bO0.*cSl ;; 5l6l.4*iSl«3 0O*0*LPl fi 3*4* o 

* 0 I AT t 1 ) *»24 d 8 % KPnPU* l J n50000« * A £ 7 P < i 1 ”0*0457 i bR i 1 ) » 1 • , A 7 ONOl ( J ) » 1 9 . 0 9 0 

* DrO { 1 1 »1 u .6 13 ♦ IPuHtHD-W. 1 PUHl t 1 ) « 1 9 » " 0 

* 1234 56 /rivOl 234 56 /G901 2 3^46/^901 2 1 4 b 6 7890 1 234 56 7 Qycn 23 4 56 /pyo l 23 4b 6 9 0 1 2 34&6 7 g 9 0 * 



CARD COL 1 Z 4 5 6 7 8 

NO* * 1 2^4567890 J 234 56 78'?0 1 2 3 4 $ 6 7 8 3 4 567 8? LJ \ 234567890 1 23456769 0 \ 234567 890 1 23 4 56 7 8? Do 

56. « MjUNCL»3 « NLINJUU >“H*4^b, I JUNCL U * 1 ) ® l t l JUNCU 1 * 2 ) »*2 . I JUNCL < 1 t 3) »«3 , o 

57.0 | JOUct- 0*4) «•»*) > I JUNcM ? * 1>»10» I JUNcL ( 2 . 7 ) **7 . I JUNCL < 2 . 3 ) «-b * 1 JUNCL ( Z ) *-9 * o 

5Q.o ijUNCLU.l >*16. IJUNcLh,Z)« -IS. I J U N C L ( 3 , 3 J I 2 . J JUNcL < 3 . 4 1 1 1 . o 

59, « !JUfJCL(3 t &Jn -13. * 

60. * NaCC« 1 t ] ACC U 1”! Z • I ErUcC m«=2.V0LACCU)=5 00. . P ACC < 1 ) *1 000 . . X K A<-C ( l > » • Q2&7 b » « 

6l*o NpbL»H. 1PB ( 1)* 1 .5 *6 , 1 97 JFND<1>" 4M* o 

62*o PACt l l i «1 USO.O, ® 

63.« NpKDL l i j *2 t o 

6^.0 PP k bL < l * 1 I x 550. ♦ PPRtlL < 1 . 2 1 »550 . , TPR b L U * 1 > *0 . 0 ♦ T P RBI < W 2 ) °2Q * 0 * o 

6b * o RpKbL(Ztl)* bOO»» PPRbL?2.2 I»b00# ♦ T P R B L I 2 . 1 ) nQ . 0 * TPRBL ( 2 * 2 ) »2Q ♦ 0 » o 

66*o ppNOL C 3 > 1 > « 4 UO • * PPRbL< 3, 21^400* . TPRBL t J * 1 ) =0 ♦ 0 * TPRBL ( 3 ♦ 2 ) *20 • U » o 

67*o PpPbL ( H , l 1*50. , PPR0L( 4 .2) »50* • T P H b L < 4 , i ) sQ . 0 # TPRBL! 4 .2 ) ®2G a U • o 

68.0 NRLCj *3 * SPREG ( 1 > s lOO.»lnO. .100*. QREG < 1 ) «2 ♦ 44 64 ♦ 0 .27648 *0.12912. o 

6 V * o AREGP U )«3*5.0. T AUREG { 1 ) «0 . 0 D 5 i 0 ♦ 0 0 5 , 0 n 0 05 * o 

7(j • o LrEgDNU)* 10.1H.18. LrEGuP < 1> * It • 15 • 13. AREGMX(1)» 0 . 6 11 595 , 0 . 069306 * o 

71.0 A k E & N X ( 3 ) » 0.UJ22H18. ' o 

72.0 pk5b®2750. .2500. *2000. . o 

73.0 N p L I N L a J • 1 » 1 .1 .2>3»5»b*c.btH.4.4»6.4»4»8.7t&. o 

7 4 fl o NVALL»1 , o 

75.0 LVUN^16, LVUP«=17. o 

76.0 NX N V L »= 4 , 9 

77.0 THVLt 1 , 1 )»0.0. ThVLCl »2l«0»2&t TMVL f 1 . 3 1 »0 . 27 . T M V L Cl .4 > »20 . 0 » 0 

78.0 XkVL< i»l J*0«0t XXVLM.21 *0 . 0 • XK VL U . 3 > =*0 . 0378675 . XK VL ( l . 4 J *0 . 0378675 » • 

79. 0 Np V ALO ! 1 1 «5o 3 * <t 

GO.o NPVALF ( 1 >=S®3. o 

0Uo OPVALOU t i)«O.Q. OP V AL 0 ( 1 • 2 } » 1 .0. 0 P V AL 0 (1 , 3 ) n 1 . 0 , * 

82.0 TMVALOl 1 *n«0«0' TMVAL01 1 ,2)=»0.2» TMVALOt i * 3 ) *20 «. 0 * o 

83.0 OPVALF U . 1 )®0.Q. OPVALF < 1 »2)»1 .0. 0 P V A Lf U . 3 ) a 1 , 0 , o 

04.0 TMVALFt | iU»0#0. T M V ALF < 1 , 2 ) =0 . 2 0 TM V ACF U . 3 ) «20 0 0 . o 

05*o OPVALO 12 . 1 ) aO.Q , 0 P V AL 0 ( 2 . 2 ) *» i . 0 0 0 P V A LO ( 2 . 3 ) « 1 . 0 # * 

86.0 THVAL0«2.1J»0.0. TMVALO(2*?)«*02. TMVALG(2*3)a20*0* 6 

^ 87. o OpVALFt2. I 1=0.0, 0 P V ALF ( 2 . 2 J w 1 . 0 . 0 P V A LF l 2 . 3 ) » 1 . 00 . 0 

°> 88.0 TMvALF i 2 1 i ) «0#Q. T M V AL F { 2 . 2 ) ® p 02 • iM V ALF < 2 . 3 ) *Z0 0 0 . o 

89.0 OPVALOl 3. 1 1^0.0 . 0 P V AL 0 ( 3 . 2 1 » 1 . 0 » 0 P V A L 0 ( 3 . 3 ) a U 0 * o 

90 . 0 THvAL0(3i n®D.O. 7 M VALO ( 3 . 2 ) « . 02 . fH V AL 0 1 3 > 3 ) n 2 0 . 0 , o 

7l»o OPVALF (3. 1 JsQoO, OPVALF (3 »2 ) &i «0t OP V ALF (3 # 3 ) n 1*0 . o 

92.0 TMV ALF t3 » 1) »0.0 . 7 H V ALf ( 3 ♦ 2 J o . 02 1 1 M V ALF ( 3 , 3 ) »*20 0 0 . o 

9 3 0 o OPVALOtH. 1 )*a.D. OP V Al 0 ( 4 , ? ) a 1 . 0 • 0 P V A LO < 4 , 3 1 ® 1 . Q . 0 

94.0 XMVALO (4 * 1 I =0.0 . jH V ALO ( 4 . ? 1 - . 02 » rM V ALO t 4 * 3 ) o20 . 0 . 0 

9b.o OPVALF (4 » 1 ) «0.0. OP V ALF l 4 * ? ) » 1 . 0 . 0PVALF(4»3>!sl«Q. o 

96.0 ThVALF « H , l )»0.0 . T h V AL F ( 4 , 2 ) * . 02 . T M V ALF < 4 . 3 ) «20 . 0 . 0 

97.0 OpVALO(5tl 1®D.0, OP V ALO ( 5 . 2 ) » 1 . 0 . OP V ALO t b , 3 > « 1 . 0 . o 

98.0 7hyAL0<& » 1 1 ao.O# 7 M V ALO ( 5 . 2 } ®0 • 2 • 7 M V ALO ( 5 , 3 ) »20 . 0 ♦ o 

99.0 OPVALF <5 , 1 I =*0,U, OP V ALF < 5 ♦ ? ) * 1 , 0 . OPVALF t b ,3 ) =» 1 .0. « 

ICIO.o ThVALf (5. I >»0.0. TMVALF ( S .2 ) *0.2 t 7»IVALF<5 .3 >«20.0 . * 

l 0 1 . 0 AREAU ♦ ] )».338ivei 1 E-l » ARE A t 1 . 2 ) « , 1 6866652 . A R E A ( 2 . 1 > * . 9 0 1 4 0 1 8 0 o 

102*o AREA <2*Z)°.8V940O2* AREa( 3*1)».9O14O10> AK t A ( 3 . 2 ) « . 8994002 . ARLA(4*l)o,90140ie,o 
103 o« ARLA(4 > 2)»,89yH00 2, AR£A(b.n*.6 45Hl3J2E-l t AREA(5,2)«,3 2t 53013 , * 

iOR.o CpANl j . il«.3b007474L^l s t M AN < x * 2 ) « . j 7462 66 1 * CM A N < 2 * [ J « * 9 2 36 6?2 6 * o 

105. 0 CFjaN< 2 *2 )a.92l 71674* CHxNi 3 1 1 ) e. 92 366926. LMAN(3.2)m»92l7l674e o 

106.0 t h AM 4 * 1 ) 0.92366926. CM *N ( 4 1 2 ) * • 92 1 7 1 6 7 4 * CM AN < 5 . i) » ♦ 663 1 0593E- 1 % ’ o 

107.0 CMAN < 5 » 2 J *. 33038728 1 o 

108.0 SfcNU o 

109,90 LCKLND o 

NO** 1234bo789012345678901234e»67890iZ345678Vai 2345678901 23 4 567 89 0123 4 56 7890123 45 678900 


3. 2 Output Description 


Program HP014A has two output capabilities and several printed output 
options. It also is capable of generating an output data tape that is 
compatible with TRWPLT as an input data tape. 

The printed output consists of initial print, detailed print, and 
nominal print. The number of time points printed is controlled by the 
value of the print flags input by the user. A description of the various 
output options follows. 

3.2.1 Initialization and Line Printout 


This block of printout contains both input values and values computed by 


the main program in setting up the case. 


AREAL (II) 
BK 

CL (II) 
DELT 
DELTF 
DELXL (II) 

DIAL (II) 
FKL(II) 

G 

GC 


Cross “sectional area of pipeline II 

Bulk modulus of elasticity of fluid I 

Speed of sound in line 

Time increment 

Combustor time increment 

Distance between nodes, ith fluid 
line 

Diameter of ith line 
Friction factor, line II 
Acceleration due to gravity 
32.174 


IEND (I) 


IPB(I) 


End of line to which pressure boundary 
is connected 

1 = upstream end 

2 = downstream end 

Line to which pressure boundary I 
is connected 


lbf/m 2 

ft/sec 

sec 

sec 

ft 

in* 

f t/sec^ 

2 - 

lbm-f t/ sec 
lbf 


37 



LVDN(I) 

LVUP(I) 

NACC 

NCHAM 

NFBL 

NGGTP 

NJUNCL 
NJUNCL (I, J) 

N0DEL (I I) 

NPBL 

NPBLF 

NPIPL 
NPLINE (II) 
NRKG 
NVALL 
PL (II, JJ) 

RH0L 

S INALP (II) 
THETA (II) 
WD0TL(II,JJ) 

Z(II,JJ) 


Line to which downstream end of valve 
is connected 

Line to which upstream end of valve is 
connected 

Number of accumulators 

Number of thrust chambers 

Number of flow boundaries 

Number of gas generator turbopump 
combination 

Number of junctions 

Lines to which junction is connected, if 
the line is downstream use the negative 
of the line index value 

Number of nodes , ith fluid line 

Number of pressure boundaries 

' Number of pressure boundaries with lumped 
variable friction 

Number of line 

Fluid in line II 

Number of regulators 

Number of valves 

Pressure at j th node of the ith 
pipeline 

Density of fluid I 
Sine of ALPHA (II) 

DELT/DELXL (II ) 

Flowrate at jth node of the ith 
line 

Elevation of node JJ in Line II 


psi 

lb/ft 3 


lbm/sec 

ft. 
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3.2.2 Detailed Printout 


3. 2. 2.1 Manifold and Thrust Chamber 

This printout block is comprised of all the variables that are used in 
the computation of the manifold and thrust chamber parameters. 


c 

Intermediate Calculations 


Cl • 

Intermediate calculations 


C6 

Intermediate calculations 


C7 

Intermediate calculations 


C8 

Intermediate calculations 


C9 

Intermediate calculations 


Cll 

Intermediate calculations 


CC 

Intermediate calculations 


CSTAR(I) 

Characteristic exhaust velocity of ith 
chamber 

ft/sec 

CV(I,1) 

Thrust chamber valve discharge coefficient, 
oxidizer 


CV (1,2) 

Thrust chamber valve discharge coefficient, 
fuel 


DELP 

Intermediate calculations 


DPMAN(I,1) 

Derivative of oxidizer manifold pressure 
with respect to time 

lbf/in 2 - 

sec 

DPMAN (1,2) 

Derivative of fuel manifold pressure 
with respect to time 

lbf/in 2 - 

sec 

DWFUEL(I) 

Derivative of mass of fuel in chamber 
with respect to time 

Ibm/ sec 

DW0X(I) 

Derivative of mass of oxidizer in 
chamber with respect to time 

Ibm/sec 
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ISP (I) 

Specific impulse of gas in ith chamber 

ft/ sec 

MR (I) 

Molecular weight of gas in ith chamber 


MW (I) 

Molecular weight of gas in ith chamber 


PCHAM(l) 

Chamber pressure 

Ibf /in 2 

PMAN(I,1) 

Oxidizer manifold pressure 

lbf/in 2 

PMAN(I,2) 

Fuel manifold pressure 

Ibf /in 2 

PRAT1 

Intermediate calculation 


PS0N 

Intermediate calculation 


PTEMP (II, JJ) 

Temporary storage 

lbf/in 2 

TC (I) 

Temperature of gas in ith chamber 

°R 

TIMER 

Time of combustor calculation 


WCHAM(I) 

Mass of propellant in the ith 
combustion chamber 

lbm 

WFUEL(I) 

- Mass of fuel in the ith combustion 
chamber 

lbm 

WINJ (1,1) 

Flowrate through oxidizer injector 

lbm/ sec 

WINJ (1,2) 

Flowrate through fuel injector 

lbm/ sec 

WN0Z(I) 

Flowrate out of combustion chamber 


K0X(I) 

Mass of oxidizer in the ith combustion 
chamber 

lbm 

WTEMP(II,JJ) 

Temporary storage 

lbm/ sec 
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3. 2. 2. 2 Turbopump 


The turbopump section determines the status of calculated parameters. 
All of the intermediate calculations are included to make system evaluation 
more comprehensive. 


AA3 - 

Intermediate calculation 


AA4 

Intermediate calculation 


ATD (X) 

Cross sectional area of turbine exit 
duct 

Hi 

ft 

to 

ATDN0Z (I) 

Effective cross-sectional area of turbine 
duct exit nozzle 

. 2 
m 



BTU 

CP (I) 

Specific heat at constant pressure of 
gas in I T th gas generator 

lbm-°R 

CPI 

Specific heat of pure fuel 


CP 2 (K) 

Coefficients of specific heat curve 


CVEL (I) 

Isentropic spouting velocity 

ft/sec 

DIAT(I) 

Turbine rotor diameter 

in 

DTD (I) 

Diameter of turbine exit duct 

in 

DRPMT(l) 

Derivative of turbine speed with 
respect to time 

rpm/sec 

ETAT(I) 

Turbine efficiency 


GAM (I) 

Ratio of specific heats of gas in I ! th 
gas generator 


GR(I) 

Pump to turbine gear ratio 


IPUMI (I) 

Line connected to pump inlet 


IPUM0 (I) 

Line connected to pump outlet 


P0WT(I) 

Turbine power 

f t-lbf /sec 

PT0(I) 

Pressure at turbine outlet 

lbf/in^ 

RPMP (I) 

Pump speed 

rpm 

KPMPD (I) 

Pump design speed 

rpm 

RPMT(I) 

Turbine speed 

rev /min 
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s 

Ratio of pump speed to design speed 

* 


T0RP (I) 

Pump torque 

ft-lbf 

TORT (I) 

Turbine torque 

ft-lbf 

TTEIS 

Isentropic outlet temperature 

°R 

TT0 (I) 

Turbine outlet temperature 

°R 

MN0Z(I) 

Turbine flow rate 

lbm/sec 

WTDN0Z (X) 

Flow rate through turbine duct exit 
nozzle 

lbm/ sec 

XITP (I) 

Moment of inertia of turbopump rotor 

' Ibm-in. 2 

XLTD (I) 

Length of turbine exit duct 

ft 

XI 

Intermediate calculation 


X2 

Intermediate calculation 
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3 . 2 , 2 . 3 Accumulators and Regulators 


As in the 

above sections, all parameters and intermediate 

calculations 

are printed out 

to facilitate system evaluation. 


AREG(I,NT) 

Regulator flow area 

in 2 

Cl 

Intermediate calculation 


C2 

Intermediate calculation 


C3 

Intermediate calculation 


C4 

Intermediate calculation 


C55 

Intermediate calculation 


C66 

Intermediate calculation 


DPACC(I) 

Change in accumulator pressure with time 

2 

lbf/in -sec 

PACC 

Pressure in accumulator I 

lbf/in 2 

P0 

Downstream pressure 

lbf/in 2 

PPPR 

Intermediate calculation 


PU 

Upstream pressure 

lbf/in 2 

TO 

Regulator flowrate 

lbm/sec 
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3.2.3 Summary Printout 


The summary print consists of the current time point followed by a 
printout of the system parameters which include: line index number, 

pressure and flowrate at each node xn the line, and extensive printout 
covering each component in the system. 

A listing of the nominal print variables follows. For those not 
defined below, see Sectxon 3.2.1. 

3. 2. 3.1 Manifold and Thrust Chamber 


CSTAR 

PMAN 

WINJ. 

CV 

PCHAM 

WN0Z 

ISP 

TC 


MR 

TIMEF 


MW 




3.2.3. 2 Turbopump 


CP 

EPMT 

CVEL 

T0KP 

ETAT 

T0RT 

GAM 

TT0 

MW 

U 

P0WP 

WP 

P0WT 


PT0 
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3. 2. 3. 3 Regulator and Accumulator 


AREG 

PACC 

3. 2. 3.4 Pressure Boundary With Friction and Valve 


Symbol 
PBNDL (I) 

XKP(I) 

XK(I) 


Definition 
Pressure at boundary I 

Effective area of resistance at boundary I 
Effective area of valve I 


3. 2. 3. 5 Line 


WD0TL(I f J) 

PL(I,J) 

TIME 


Flow rate in the Ith line at the Jth node 

Pressure in the Ith line at the Jth node 
'Time from start of transient 


Units 

lbf/in 2 


lb m/ sec 

lbf/in 2 

sec 
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3.2.4 Sample Ouptut 

Selected printed output for the test case are shown on the following 
pages. For examples of plotted output see Figure 39 of Reference 1. 
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3 . 2 . 4.1 Initialization and Line Printout 

the: FOLLOWING variables are input constants 


THE PROGRAM OT 15 EWUAL TO.#* .10000000-02 

THE COMiiUSTORS INTEGRATION OT jS t QUaL - 10000000-03 

THE ACCELERATION DUE To GRAVITY 15... ♦ .♦. .UCOOQOOO 

THE GRAVITATIONAL CONSTANT JS ♦ ♦*. 32J74000+OZ 

THE NUMBER OF ACCUMULATORS IS 1 

THE NUMBER OF THRUST CHAMBERS IS 4 

the number Of flow boundaries is-- □ 

THE NUMBER OF TURBOPUMPS IS . 1 

THE NUMBER Of LINE JUNCTIONS I «, . ♦ o 3 

THE NUMBER OF INTEGRATIONS PER COMBUST OR IS... - 10 

the nuhger of pressure boundaries is.. 4 

THE number up PRESSURE BOUND AR 1 1 S/ F H 1 C T I ON IS. 0 

THE NUMBER Of LINES IN THE SYSTEM IS'*" 1 9 

THE NUMBER Of REGULATORS IS. 3 

THE NUMBER UF LUMPED RESISTANCES IS. 1 


1 END 

K 

1111 




IPO 

ta 

1 5 6 19 




LVDN 

a 

16 




LVUP 

t* 

17 




NPLInE 

» 

1111 

2 3b 

5 5b 

4 4 4 6 

l JUNCL 

o 

l -2 -3 -4 

0 10-7 

-6 -9 a 

16-15 —12 -11 

xlen^l 

n 

•5QU0QDG0+01 
•20000000+02 
* 15000000 + 02 

• 5 OOOnO 00 + 0 1 

• 1 5oonooo+a2 

• isoonooci + 02 

♦5anoooon+oi 

♦ 1 50UD000 + U2 
♦2OO0UOOO+O2 

♦Bgaoaooo+oi 

* 15000000 + 02 

RS AS 

3 

♦98300000+02 

•48jQn 000+02 

.48300000+02 

*76600000+03 

TG AS 

V 

•50000000+03 

0 5a00n000+03 

♦ 50000000+03 

*50000000+03 

BN 

» 

.00000000 

, OOOOnOOO 

ooooooaoa 

ft oooonooa 

AREAl 

9 

•47464774-0 1 

• 15762505-0 1 

• 19634954 + 00 

* 15/62505-01 
*41247039-01 
. 18385385-01 

* 1 b/62bab-0 I 

♦ 1 9 6 J 4 954+00 

• 1 9634954+nO 

* 1 57 62505-0 l 

* 19634954 + 00 

cl 

e? 

*10777839+04 

•41092723+04 

♦25000000+09 

• 1 U7778j9 + 04 

* 4 1 04?723 + o4 
•4104?723+04 

♦ 107/7839+04 
•4 1 047/23+04 
*25000000+04 

♦ 10777839 + 04 
*41042723+04 

DIAL 

tt 

♦ 29&UU000 + 0 1 

• 17000000 + 01 
•6OUUU0OO+CU 

• 1 700n0no+0l 
• 27S0n0U0*0l 

* 1 836n000 + 0 i 

• 1 /uoouoo + n i 
.6001)0000 + 01 
*60000000+01 

• 1 7000000 + 01 

• 60000000-^0 1 


4 -4 6 7 6 

-13 

•SQOQOGOO+Dl *50000000+01 
•ISqqouOQ+QZ ■15uQ0000 + 0 2 

• 76600000 + 0 ^ ' 76600000+03 

• SOOQ 0 00 0 + 0 3 *SaDQ0Q00*03 


. u o ooo o o o .oooooaoa 


*500l9469-Q2 * Boo 1 4469*02 

• 19634954+00 * 47464774-01 


• 10777839+04 * 10777839 + 0 ^ 

• 910 ^ 2723+09 ' 41 g 92723+04 


• 9b7^0D00 4 ‘00 *95760000 + 00 

• 6 UUUUUOU+ 0 l * 29500000+01 


♦ 20000000+02 * 20000000+02 
• |5 00Q000 + 02 *15000000+02 


«76600OOQ+a^ *00000000 


*50000000+03 oOoQQQOQO 


*00000000 *00000000 


• 157 62505^01 * 1&7625q5**Q1 

* 19634959+00 oi ? 639959 + Q 0 


♦ 91092 723 + 09 * 9J092723 + Q9 

* 41092723+09 # 9 1 Q 42723 + Q 4 


♦17000000+01 *17000000+01 

*60000000+0 1 *60000000+01 



FRU 

8 

tUOODOOOO 

.oaoonooo 



•uuuooooo 

oOCJOOnOUO 



.UUUOOOQO 

. OOOUnOUO 

SINAI P 

X* 

♦OOOOOOOO 

•oooonono 



.oooooooo 

t OOOOnOUO 



♦oooooooo 

♦OOOOnOOO 

thet a 

D 

.60000000-03 

9/s>goonooo^o3 


.2dgqoooo-o3 

.200Dn0OO"*03 



.33333333-03 

0 2 00 0 n 000-03 

OEUXl 

8 

• 16666667+01 

« 1666 A 667+Ql 


• 50000000*0 i 

•5GOOnOno+Dl 



• 3 000 0000 o 0 1 

*50DOnOOO+Ql 


*00000000 

*00000000 

•OOUDUUOO 

•oooooooo 

•00000000 

•UUOOOOOO 

• ooocioaoo 

•oooooooa 

0 OQOUOOOO 

.aODOODOD 

•OOOOOOOO 

*00000000 

•ouooouoo 

*oooauooo 

*60000000-03 
•20000000-03 
* 30000000^03 

• 6 QOOOO DO — 0 3 
•20000000-03 

.60000000-03 

•20000000-03 

• 1 6666667 + Ql 
•50000000+01 
•33333333+01 

« 166^6667+01 
•50000000+01 

• 16666667 + 01 
obOQUGOOO+Ol 


•uoooouoo 

.oooooooo 

>00000000 

♦OOOOOOOO 

.OOOOOOOO 

•oooooooo 

.oaooouoo 

.oooooooo 

•oooooooa 

*00000000 

*00000000 

,00000000 

•60000000-03 

•20000000-03 

•200Q0D00-03 

.20000000-^03 

*20000000-03 

•20000000-03 

* 1666666 7 + 01 

•soaaQQoo+ai 

•50000000*01 

* 50000 00 D + 0 1 

•50000000+01 

•50000000*01 



the FOLLOWING VARIABLES 

aRL initial conditions 



LINE 

INDEX NUMBER - 1 





PL 

» .55000000+03 

, bbD0n000+03 

*55000000+03 

.55000000+03 


tfOOTL 

C *00000000 

. QOCOnOOO 

• OOQOOQOO 

.oooonooo 


l 

m *aoooa0o0 

♦OOGOnOoD 

* OOQOuOqD 

•oaoooaoo 


LINE 

INDEX NUMBER - z 





PL 

* *55000000+03 

•5500n000+03 

•5&DDOOOU+03 

•55000000+03 


ftDoTi 

» fOOOOQOOO 

b OOOOnOOO 

•00000000 

•aooooooo 


1 

» p 0 Oq DO DO 0 

.OOOOnOOO 

•OOOOqDoO 

0 0 DO Oo DO 0 


LINE 

INDEX NUMBER - 3 





PL 

* * &&000000+03 

.5500(1000 + 03 

o55000000+03 

.55000000* 03 


N&OTL 

» *00000000 

•OOOOnOOO 

pOODOODOO 

.00000000 


Z 

it *o 0 qDq°gd 

.OOQDnOOO 

•OODOqOdO 

. oQqD OOOD 


LINE 

index number - *» 





PL 

»» *55000000+03 

cS5OOnOO0+O3 

*55000000+03 

*55000000+03 


wDoti 

* *00000000 

.oooonooo 

*00000000 

.00000000 


jp- z 

V© 

* *00000000 

.oooonOoo 

♦odoooooo 

* aooooooo 


LINE 

INDEX NUMBER ~ 5 





PL 

® *50000000+03 

.5ooonooo+o3 

*50000000+03 

.50000000+03 


fcDOTl 

R .00000000 

* oooonooo 

•DOOQOUOO 

*00000000 


Z 

e *00000000 

.OOOOnOOO 

*00000000 

.oooonooo 


line 

INDEX NUMBER p* 6 





PL 

C .<♦ 0000000*03 

9 HOOOflOQO + 03 

• <♦0000000 + 03 

.<*0000000 + 03 


WUOTi 

* *00000000 

•OOOOnOOO 
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L 
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.OOOOOOOD 
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ft 000000 00 


LINE 
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PL 
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*55500000+03 

*55500000*03 
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WQOTl 

R *00000000 

♦oooonooo 

oOOOOOUOC 
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l 
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•OOOOnOOO 

•oooooudo 
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a 


Pt 

at 
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•55500000* 03 
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rtDOTl 

B 

•ouoooooo 

.OOOOnOOO 

• ODOOOOOO 

ftOOOOOOOO 

ftUuoooooa 

L 

Be 

• OOoOoOcO 

♦oQoOnOoo 

. OOOOaOoO 
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ftOOOOOOOO 

LINE 
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NUMBER - 10 





PL 

a 

.55500000+03 

♦55b0n000+03 

♦55500000+03 

•55500000+03 

/ 

w£>OTt 

M 

. OUOCJOOOO 

. oooonooo 

.oaoooooo 

♦OOOOOOOO 


Z 

St 

♦ O^oOoOoO 

ft OOoOnOuO 

•OOOOqOoO 

•OOOOOOOO 


LINE 

index 
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o OOOOOOOO 
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& 
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LINE 
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o OOOOnOOO 

ftOOOOOODO 
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LINE 
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LINE 
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♦50500000+03 
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*dqtl 

* 

.00000000 

•OCOOnOOO 

ftOOOOOOOO 

•OOOOOOOO 


Z 

a 

. OOOOOOCO 

• OOOOnOOO 

.OOOOUOOO 

♦OOOOOOOO 



LINE INDEX NUM&LR 


15 



PL a . 1 0500000 + 0*1 * IGbOnOOO+OH *10500000 + 0*4 

wUoTt » *00000000 » OOOOnUOO *00000000 

Z » *OQo^OOoO #OOoOnOoO *03000000 

LINE INDfcX NOM&ER *■ 16 

PL * . 10500000 + 0*4 .iObOnOOO + OM ■ l 05QCJ li Q 0 + 0*4 

wOOTL » *00000000 tOOOOnOOO *00000000 

Z * *00000000 ♦ Q0O On 00 0 *COOOoOoO 

LINE INGE* NDMbLK - 17 

PL » « 50000000+02 ,50000000+0* *50000000 + 02 

ftOOH » *00000000 * OOOOnODO *00000000 

Z « *00000000 *00000000 *00000000 

LINE INDEX NUMBER ia 

PL j» iHDbDOOOO+03 ,<405OnOO0 + O3 o *40500000 + 03 

«DOT L ** *00000000 *00000000 .OOO0O0O0 

Z » .00000000 *00000000 *00000000 

LINE INDEX NUMBER - 17 

PL » .50000000+02 • SDOOnOOO+OZ *50000000+02 

wDOTl n *00000000 • OOOOnOOO *00000000 

z » .00000000 .OOOOnOOO *00000000 

PACC * . 10500000 + 0*4 

K K ai 


. 10500000 + 0*4 
.00000000 
• 000 00 000 

. 10500000 + 0*4 
.00000000 
. 0 Dq 00 00 0 

0 5p □ 0000 0 + 0 2 ,50000000 + 02 ,50000000 + 02 

•00000000 ,00000000 .00000000 

*,00000000 .00000000 oOOOOOOOO 

,^0500000+03 

,00000000 

.00000000 

•50000000+02 .50000000+02 .50000000+02 .50000000+02 

*00000000 .00000000 .00000000 *00000000 
.00000000 *00000000 ,00000000 *00000000 


00000000 



3. 2.4, 2 Manifold and Thrust Chamber Detailed Printout 
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C7 

a 
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& 
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xe 
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V 

•51614000+04 

cv 

« 

,49997996*02 

OCLP 

c 

o oooooooo 

DELP 

a 

*00000000 

DPMAN 

e 

,06173512+03 

[WFUtLm 

*90798261-03 

DflOX 

a 

,25290356-03 

I 

a 

i 

II 

a 

6 

IKOUnT 

ea 

0 

ISP 

a 

,30000000+03 

J J a 

4 

MR 

X 

•2640099B+00 

MW 

C3 

•20160000+01 

N 

a 

1 

pcham 

o 

* 33 7 1 9701+00 

PHAN 

a 

•46002612+00 

PRATi *t 

• 1 1522969-02 

P50N 

a 

,39991960+03 

ptemp 

JB 

*39991960+03 

TIMEF 

a 

• 999999931-03 

h 

ttTEMp 

ra 

17 

• 10^76 + 03-06 

• 1 7285692-02 

M C H A M 

e* 

*50159203-06 

WfUEL * 

,39687600-06 

tf J N J 

n 

n 36009494-03 

wNOZ 

a 

.551 12205*03 

WOX 

a 

• 10476603*06 

M 

a 

•000QQ00Q 

61 

a 

•OOOOOOOO 

C « 

-•04054 l 45+01 

Cl 

n 

• 20754 1 10*01 

C 6 

a 

•90372649-05 

C7 

a 

•oooooooo 

CO 

n 

* *00000000 

C 9 

n 

,00000000 

CM a 

,27260061+00 

CSTAR 

a 

o 51 6 14000 + 04 

Cv 

ts 

,49999996*02 

DCLP 

o 

•oooooooo 

OELP 

o 

,00000000 

DPMAN 

a 

, I 7940392+04 

D Vi F 0 E L = 

* 90006685-03 

OftOX 

a 

,25290356-03 

1 

a 

1 

11 

a 

18 

JKOUnT 

n 

0 

ISP 

» 

♦30000000+03 

J J * 

4 

MR 

a 

,26400998+00 

MW 

a 

•20160000+01 

N 

a 

2 

PCHAm 

c 

,33719701+00 
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& 
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a 
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a 
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a 
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w 

WTEMp 
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n 
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«Jnj 

a 
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a 
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o 
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3.2.4. 3 Turbopump J)e tailed Printout 
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A A 4 

C 4 

» 

,36307936+00 

CP 

ORPWT 

a 
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ET AT 

POWP 

a 
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POWT 

RPMT 

o 

• 1 1023434+03 

S 
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o 
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u 

XI 

a 
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a 
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CV 1 

n 
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TC 

a 
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Cl 
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n 
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*•36307936+00 

.06103165+04 
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3 .2,445 Summary Printout 

at Run time .iodooooo-02 the 


LINE 
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number - l 


PL 

ax 

* 55000C 00 + 03 

*5500n000+03 

wdqtl 

n 

•OOOOOOOO 

♦OOOOnOOO 

LINE 

INDEX 

NUMBER - 2 


PL 

* 

.5*4999999 + 03 

* 55COnOOO + 03 

WDol L 


-.*4766371 6-06 

♦ OOCOnooc 

LINE 

I NDEX 

NUMBER - 3 


PL 

VL 

.5*4999999 + 03 

* 550CO000 + C3 

*DOTl 

n 

-.*476637 16-06 

♦ OOOOnOOO 

LINE 

INDEX 

NUMBER * *4 


PL 

w 

.5*499 9999+03 

0 SSOOnOOO+03 

DOT L 

0 

-.*476637 16-06 

•OOOOnOOO 

LINE 

index 

NUMBER - 5 


PL 

IS 
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wOOTl 

V 

.ooooooac 

• OOOOnOOO 

LINE 

INDEX 
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PL 
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•OOOOnOOO 

LINE 

INDEX 

NUMBER - 7 


PL 

tt 
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dfDoTL 

S3 

.OOOOOOOO 

.OOOOnOOO 

LINE 

INDEX 

NUMBER - 8 


PL 
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. 5550n000 + 03 

ftDOTL 

IS 

.OOOOOOOO 

.OOOOnOOO 

LINE 

INDEX 

NUMBER - 9 


PL 

0 

.55500000+03 

• 55 50n000*03 

ftOoTL 

n 

•QOOUOOOO 

• OOOOnOOO 
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LINE INDEX NUMBER 


CONDITIONS WERE present 


•5500 GOO 0+03 .5*499 99 99 + 03 

•OaOOOGGO . 1 9073*4 86-05 

• 55 0000 0 0 + 03 .5*4080522 + 03 

♦OGOOOQOO .62302031+00 

• 55000000 + 03 .5*1 080522 + 03 

/ 

•OGQOOOOO .42302031+00 

.5 5000 00 0 + 0 3 .5*4080522 + 03 

•OOOOOUOO .62302031+00 

a 5 OOOOUO 0 +03 .**9980625 + 03 

• OOOOOOOO .*4 1 2272 38-02 

• *40000000 + 03 .3999 1960 + 03 

.00000000 .17285692-02 

-55500000 + 03 .5 5500 0 00 + 0 3 .5*46*40*462 + 03 

.00000000 -OOOOOOOO . 15294032+00 

• 55500000 + 03 *55500000 + 03 .5*46*40*462 + 03 

•OOOOOOOO .OOOOOOOO • 15294032+00 

*55500000 + 0 3 *55500000 + 03 •5*46*40*462 + 03 

•OOOOOOOO .00000000 *1529^032+00 



PL * 
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LINE INDEX 
PL 

*DOTl 15 
line index 
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line index 
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ttDOTL « 
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LINE INDEX 
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. 55500003+03 

• 19O/3486-0S 
NUMBER - 11 

• 1 US00Q00+D4 

• 1 9Q7.i406~Lr5 

NUMBLK - 12 

. 1 CJc,LOCOa + Ux4 
. 1 9073406-05 
number - 13 
« 1 OsQOOOO + O 4 

• 19073406-05 

NUMBER - 14 

• 50500003 + 03 

• 1 9q73486~o5 
NUMBER - IS 

• 1 0500000+04 
♦ 1 9 Q 7 J 4 B 6-05 

number - 16 

. 10500000+64 

• u c 00000 0 
NUMBER - 17 

• 50003065 + 02 

• 1 l 1 5504 1 -02 
NUMBER - ia 
*40500009 +0 3 

• 1907 3486-05 

NUMBER - 19 

,50000000+02 


• 5 550 n 000 + 03 

• OOCGnOOO 

9 1 ObOnOOo + Cj*+ 
•OOOOnOOO 

9 1 ObOnOoc+04 
9 GOCOnOOO 

9 1 ObOnODQ +04 

•oooonooo 

• 50 b 0 n 000+03 

.oooonooo 

• 1 0b0n000 + 04 
• OOOOnOOO 

. 1 ObOnOOO + 04 

♦oooonooo 

#50C0n000+C2 

♦QDOOnODO 

. 40b0n000+03 

« oooonooo 

« 5dOUnOOO + C32 ) 


♦55*00000+03 

.OOODOGOO 

9 X 05OODOO+O4 
*00000000 

t i nbOODoo+on 

.00000000 

1 

4 10500000+04 
« OOOOOOOD 

450500000+03 

•QOOOOGQO 

4 10*00000+04 
tOOOQOOQO 

* 1 DBOOOOO + U4 

.00000000 

.50000000+02 

.OQOOOOOO 

.40*00000+03 

• ooodooqo 

, 50000000+02 


WDOTl * 


UUUOUODO 


OOOOnOOO 


00000000 


55500000403 


423841858-06 

•10500000+04 
• l 9c /34B6-05 

4 1 0500000+04 
♦59604645-07 

p 1 0500000+04 
♦19073486-05 

♦50490570+03 

♦50522708-02 

♦ 10500000 + 04 

♦ 19073406-05 

. 1050000D+D4 

♦ 1 9073486-05 

♦50000000+02 #50000000+02 ♦& 0000000+02 

•00000000 #00000000 #00000000 


•40409759+03 
• 2 1 253454-02 

•5QOOOOOO+O2 #50000000+02 .50000000+02 ♦49996933+02 
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f OOOOnOOO 


•oooooooo 




OXIDI 7 ER SYSTEM 
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CONDI 1 IONS AT *10000000-02 
•36809494-03 CV 

,26400998+00 MW 
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MW 
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For COMBUSTOR 1 

fuel side 

a *49999996-02 PmAN * ♦12366006*01 W I N J 

combustor chamber parameters 

b 0 20 1 60000 + 0 1 PCHAM » ,33719701+00 TC 


For combustor 2 

FULL SIDE 

» ,49999996-01 PMAN » ,11127137+02 WJNJ 

combustor chamber parameters 

* .88525141+01 PCHAM a .76837139+01 TC 


For combustor 3 

FUEL SIDE 

a ,49999996-01 PMAN « ,11127137+02 WIN*) 

combustor chamber parameters 

» ,88525141+01 PCHAM « ,76837139^01 TC 


For combustor 4 

FUEL SIDE 

a .49999996-01 PMAN * ,11127137*02 WInJ 

COMBUSTOR CHAMBER PARAMETERS 
„ .80525141+01 PCHAM a .76037139+01 TC 


FOR COMBUSTOR 5 

FUEL side 
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combustor Chamber parameters 

» w20l6000D+01 PCHAM a .47662042+00 T C 
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a *50000000+03- 
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4 . 


FLOWCHARTS FOR HP014A 


The flowcharts included in this document are intended to be used as a 
generalized aid to anyone involved in altering the program or studying its 
construction. As such, the flowcharts are of a generalized nature, showing 
the major parts of each routine. All major logic branches and each major 
section of computation are shown. The flowcharts are not meant to be a 
line-by-line listing of the program. 
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CALCULATE FLOWRATE 
THROUGH INJECTOR 
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FLOW CHART 4 
SUBROUTINE CR2TAP 
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FLOW CHART 5 
SUBROUTINE FBL 
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FLOW CHART 6 
SUBROUTINE JUNCL 
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FLOW CHART 7 
SUBROUTINE PBL 
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FLOW CHART 8 
SUBROUTINE PBLF 
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FLOW CHART 9 
SUBROUTINE INTERP 
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FLOW CHART 10 
SUBROUTINE PIPEL 
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SUBROUTINE REGL 
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FLOW CHART 14 
SUBROUTINE VALVEL 
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PRINT ON 
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5, PROGRAM LISTING 

A complete listing of the TRAP computer program including the element 
table, subroutine listings, and program storage is shown in the following 
pages. 
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5 . 1 Element Table 


2. E RS 
2. J N Z 

end of file — unit z 
<*• TRI z 
5* TOC 


ACC 

ACC 

code 

SYMBOLIC 

relocatable 

trap 

HPOMA 


SYMBOLIC 

RELOCATABLE 

BLOCKO 

BLOCKD 

CODE 

SYMBOLIC 

RELOCATABLE 

CHAM 

CHAM 

code 

symbolic 

relocatable 

CR2TAP 

CR2TAP 

code 

symbolic 

RELOCATABLE 

F3L 

FBL 

code 

symbolic 

relocatable 

1NTERP 

INTeRP 

code 

symbolic 

relocatable 

JUNCU 

JUNCL 

CODE 

symbolic 

relocatable 

PBL 

PBL 

code 

symbolic 

relocatable 

PBLF 

PBLF 

code 

symbolic 

relocatable 

PIPEL 

PJPEL 

code 

symbolic 

relocatable. 

^EGL 

REGL 

code 

SYMBOLIC 

RELOCATABLE 

RK l NS 
RK I NS 

code 

SYMBOLIC 

RELOCATABLE 

VAL 

YAL 

code 

SYMBOLIC 

relocatable 

valvel 

valvel 

code 

SYMBOLIC 

relocatable 

WRITE 
WR I TE 

CODE 

SYMBOLIC 

relocatable 


1 1 :sif52*698 
1 l J5I 152.099 


1 L JS| I57.804 
Li :5 l :57 tB06 


element table 


2i 

JUL 

71 

15500:2" 

0 

01*136670 

1*4 

76 

2 1 

JUL 

71 

i5:o6:2o 

1 

0 I *f *4o7*IO 

36 

1 





0 

QJ *4*4100*4 

11 

Jt z 

3 1 

AUG 

71 

12534*56 

0 

0 l *4 *4 222 6 

1*4 

270 

31 

AUG 

71 

12:34556 

1 

01*151532 

8*4 

1 





0 

01*451656 

1*4 

15*4 

31 

AUG 

71 

12:34*59 

0 

0 1 *15603 2 

1*4 

122 

31 

AUG 

71 

12534:59 

1 

01*461 306 

2*4 

1 





0 

01*461336 

1*4 

976 

31 

AUG 

71 

i 2 : 35 ; 04 

0 

0151*4076 

1*4 

255 

31 

AUG 

71 

12:35*04 

I 

01523060 

*48 

1 





0 

015231 <40 

1*4 

115 

31 

AUG 

71 

12:35*06 

0 

01526252 

1*4 

*4*4 

3 1 

AUG 

71 

12535:06 

I 

01527*422 

2*4 

! 





Q 

01527*452 

11 

15 

31 

AUG 

71 

12535:07 

0 

015300*46 

1*4 

33 

31 

AUG 

71 

12;3S;07 

1 

0153076*4 

36 

1 





0 

01531030 

1*4 

20 

3 1 

AUG 

7! 

12535509 

0 

01531*460 

1*4 

31 

31 

AUG 

71 

12535:09 

i 

015323*42 

2*4 

1 





0 

01532372 

1*4 

2*4 

31 

AUG 

71 

i2:35:io 

0 

01533112 

1*4 

50 

31 

AUG 

71 

12535* 10 

1 

0 t 53*4*406 

36 

1 





0 

01 53*4*452 

1*4 

23 

31 

AUG 

71 

12:35*12 

0 

0 1 5 35 5 5*4 

1*4 

27 

31 

AUG 

71 

12:35; 12 

l 

015357*46 

36 

! 





0 

01536012 

1*4 

19 

31 

AUG 

71 

12:35*14 

0 

01536*42*4 

1*4 

*43 

31 

AUG 

71 

12535} 14 

1 

0153766*4 

36 

1 





0 

01537730 

1*4 

33 

31 

AUG 

71 

12 : 35:15 

0 

01 5*406*46 

1*4 

22 

31 

AUG 

71 

12:35:15 

I 

015*4 1332 

2*4 

1 





0 

Q 2 5*1 l 362 

1*4 

13 

31 

AUG 

71 

12535*18 

0 

015*41756 

1 *4 

69 

31 

AUG 

71 

12535: 18 

1 

015*4*431** 

*48 

i 





0 

0 1 5*4 ^ 37*4 

1*4 

51 

31 

AUG 

71 

1 25 35 ; 19 

0 

015*45706 

1*» 

39 

31 

AUG 

71 

1Z5 35J 19 

1 

0 15*46750 

2*4 

1 





g 

015*4^000 

1*4 

16 

31 

AUG 

71 

12535:21 

6 

01 5*473*40 

f*4 

~ 2*4 

3! 

AUG 

71 

12:35*21 

i 

01S50C60 

2*4 

1 





0 

015501 *0 

1*4 

15 

31 

AUG 

71 

1 2 5 35; 23 

0 

nl55n*432 

1*4 

39 

31 

AUG 

71 

1 2;3S* 23 

1 

0 1 55 1 *47*4 

36 

1 





0 

01551 5*40 

1*4 

27 

31 

AUG 

71 

1 2; 35; 30 

V 

01552332 

1*4 

*4*43 

31 

AUG 

71 

12535*30 

1 

01 5 6 6 11 2 *4 

8*4 

1 



0 01566550 


285 


ENTRY POINT TABLE 

ACC { ACC/COOE J ! ' 000637 

PBt (FBL/COOE) 1 00023 6 

PbL (PbL/cODE) I 000233 

-*E6L * -I -000662 

VALVEL (VaLVeL/CODE) . I 000337 

block table 

/ 

~ALUCOH (6L0CKD/C00E) ’ 3*1 SANK 2 DpPENpENT 

-Wiu 1 BLOCKD/CODE ) — 3*1 _aAN(C. 2 DEPENDENT 

. COBOL LIBRARY TABLE EMPTY 

_ procedure name table empty 

EN D CUR ICC 1102-0038 LB 


CHAKgR (bLocKD/CODE > 3 1 * BANK 2 DEPENDENT 


CHAM <CMa«/CODE) 1 001701 

INTERP { I N TERP/CODE ) 1 000207 

PBLP (PBLF/CODE) t 000*00 

RKJNS iRKlNS/cOpel - -- i 000170- 

WRITE {WRITE /CODE ) 1 003630 


CR2tAp (CR2TAP/C0DE) 1 000157 

JUNCL I JUNcL/CODE 1 .. . 1„. 00027 * 1 - 

PIPEL {P1PEL/C0DE1 1 00022! 

— VAL -- -{.UA U/ -4O 0 E-3 1 OOHLAA- 



5.2 Main Program 

UNIVAC nos FORTR^M V 1FVFL 
This C° MP ttATtO^ AS DOME ON 



fsp 1 8 H 
A T n ps 3*-4* 


main PR nr, 

STORAGE "SFO fRLnrK, NA M F, LENGTH) 


oor 1 

♦ cone 

PO 1 3n& 

men 

* 0 A T A 

001^01 

00P2 

♦AL4MK 

on^no" 

nnn3 

acccom 

Coin 30 

Onr4 

ALLfQM 

02367G 

ones 

ALLCS 

nn^nr,r 

ono/, 

CH AMR4 

004 a 7 6 

0007 

DATA? 

fn^/,7 

03 10 

F n L C 0 m 

0"1 7?5 

001 1 

FLAGS 

r.nrnoA 

001 7 

JIINCLC 

000^7 5 

00 1 3 

PM CO 4 

002007 

nm 4 

P a L F C m 

Gr^n| 5 

0015 

RE*LC» 

00 1 An] 

m 1 6 

VALUES 

nor - 1 0 

0017 

V A L V c M 

pn?n?i 


co 

o 

external rfferfnces (Block ♦ name) 

0320 CHAM 
0021 RrSFT 
0322 CR^TAP 
0023 V’JPlTF 

' 00 2 H PIPEL 

0025 P8L 
00 2 A VaLVEL 

on 2 7 j u n r l 

onsn FRL 
0031 Rfgl 
0012 ACC 

0033 VAL 

00 34 RKI^S 
0 n 35 PrLF 
00 3 6 N f N t *5 
0037 NEXP6T 
0 040 SORT 

0041 S t N 

0042 NFRR2S 
0343 NST0P5 


STORAGE aSMGNmfnt r 0R 

0 C0 1 f*0 r *4 2 7 |7*L 

0001 ^ 3-^ 1 *=i 7 ?36G 

OcOi rcn21C 3"L 


Variables (pl^ck, typf, 

-oni pro 4 37 jRCL 
n^oJ rr n 52S ? SOL 
r*pci or " 3 5 i 3 o f 'G 


RELATIVE LOCATION, NAME) 

r on 1 nnr-46 1 * 21 hl 

nrpl nnn 3 n6 2&3g 

r-onl Orr 3 a4 31HG 


PC0 1 000034 21?G 000 1 0t?05n7 23OL 
nnot 0P(?3 3^ 2 7 3 g 000 1 001061 2<?0 l 
proi no 1 1 45 3 1 OL 0001 C?on40A 3 2 0 g 



0001 


pnnqp 7 

3236 

"CPI 


CPI 167 

3301 

"OC I 


OcOi 

* 

ro?6 l o 

414 6 

0001 


or I 072 

4 4 6 G 

pool 


onoi 


no i 2 2 6 

5736 

0005 

ft 

oronoo 

AC 

no fjS 

R 

0005 

R 

PO n [ 42 

A C 3 

opns 

R 

C r ""44 

A C 4 

mcO 

R 

0004 

R 

nnnpo" 

A ftp AL 

"015 

R 

ocnnoo 

ARE" 

0015 

R 

ono6 

ft 

C 0 r ' 0 3 9 

A TO 

"CP6 

R 

nr pc 3 i 

ATD^nZ 

. noc7 

R 

0n06 

ft 

009053 

CEF 1 

r 006 

p 

"""".55 

r FF2 

0920 

R 

0n06 

R 

no -0 7 7 

CP 

"906 

R 

OPn 10 l 

CR l 

P"C6 

R 

0C06 

R 

nor | ? 1 

C 52 

roc6 

ft 

"" 0 l 27 

CV 

nO"6 

R 

0000 

R 

non? is 

OELX 

"907 

ft 

oncn i n 

OELXl 

on I Q 

R 

000 6 

R 

rn n i s2 

01 AT 

no I 5 

ft 

or 1 46 3 

n M c 1 

r"15 

R 

0903 

R 

OO r O"D 

OPACr 

n9P6 

R 

OfT 1 54 

0 p M A N 

nPf}i 

R 

0003 

ft 

ncnr 1 1 

OUm 

9006 

R 

OPP 202 

D* 

""PA 

R 

O9O6 

R 

00 '73" 

ftat 

. oooo 

ft 

OP" 206 

FAC'nR 

nnnn 

ft 

0015 

ft 

001475 

f* 

00" 4 

ft 

Cl "12 1 

G 

n 0 n 6 

R 

On 1 6 

R 

OO/inO 1 

GRHO 

onoo 

I 

PPO 7 1 Z 

I 

0003 

I 

OoU 

I 

0 3 " 0 " t 

1 CHAMP 

9P03 

I 

0"OP1 1 

I n ui-i 

nO I 5 

I 

0015 

I 

onisnl 

T OUM J J 

0903 

I 

0"" r i 2 

I 0 0 M 1 

P0n3 

1 

0013 


00"000 

IENO 

0014 

I 

09 "TOO 

jENDF 

0006 

1 

001 I 

I 

norooo 

1 flag 1 

"000 

I 

OP" 2 1 3 

1 1 

mi 2 

I 

0014 

I 

oooo 1 2 

ipbf 

noi t 

I 

oprros 

I P L 0 T 

pni 1 

I 

0006 

I 

00^26 1 

1PUM0 

PCI 1 

I 

0P9PQ3 

JREGPR 

00C6 

n 

OoQO 

I 

001 134 

IT! A 

0090 

I 

OP 1 135 

I TI AN 

POOO 

1 

0000 

I 

nui 1 77 

I T1 CO 

0003 

I 

PP 1 2 3 6 

I T | P 

nnno 

1 

oooo 

1 

001300 

1T1RN 

OOOO 

I 

001301 

I T I Rq 

pnoo 

1 

oooo 

r 

001401 

ITPL 

POOO 

r 

001402 

1 TPLN 

oono 

1 

qq oo 

i 

909223 

IY 

"000 

i 

C PO 2 2 4 

IZ 

n DC 0 

r 

0006 

R 

009312 

KAY1 

noo6 

R 

OPO 4 2 2 

K A Y 1 0 

?no 6 

R 

0006 

R 

000342 

KAY4 

noo6 

R 

0 PC 35 2 

KAY5 

nno6 

R 

0006 

R 

0H"4 1 2 

K AY9 

oooo 

l 

0 T" 2 1 1 

kount 

ODOO 

I 

0015 

I 

0 3 1 S 1 2 

lregup 

0017 

I 

CIPPPOO 

ivow 

"" I 7 

I 

□ DO 6 

R 

00"4*3 

M \ 

ono6 

R 

00"463 

mvv 1 

pn n 6 

R 

0006 

I 

OOP472 

NCHAM 

0007 

I 

onop34 

NCMtg 

n no 6 

I 

0006 

! 

00047*1 

NgoTP 

00 1 2 

1 

C0PC62 

NJUNCt 

0014 

1 

0003 

I 

OOnoZO 

NNNN 

oooo 

I 

PP"2 l 7 

NNODEL 

nno4 

I 

ooio 

I 

non 777 

NPFBL 

POOC 

I 

nr n 37 

NPI A 

onoo 

1 

oooo 

1 

001 302 

NPTR 

0000 

I 

001343 

mpit 

0004 

1 

0013 

1 

nO0025 

NPRBl 

C 00 6 

1 

OP 04 7 5 

npvalf 

rO06 

I 

0015 

I 

091524 

NTREG 

0017 

I 

00 "0 2 4 

nvall 

nO l 7 

1 

OOOO 

R 

not 265 

offipr 

oooo 

R 

no I 326 

OFF I R 

nnco 

R 

oooo 

R 

001212 

ONIC 

POOO 

ft 

001753 

ON I PR 

oono 

R 

0006 

R 

OOns I 5 

opvalf 

0906 

ft 

001455 

opvalo 

r,no3 

R 

OolS 

R 

001534 

PO 

9004 

R 

prr I 74 

PL 

0006 

R 

0Q06 

R 

002455 

PC *T 

noo6 

R 

CP2 457 

pown 

roo6 

R 

00 i ^ 

R 

nnro63 

PPBLp 

C003 

R 

Ornn23 

pp PP 

0013 

R 

Oo l 5 

R 

001935 

prff 

no 1 6 

ft 

ororo7 

PS 

0904 

R 

0006 

R 

0025" 1 

PV'O 

0006 

R 

0" 2503 

P>v i 

P0"6 

R 

0015 

R 

001 556 

Q 1 OUm 

"C I 5 

r 

001557 

n2oUp 

n"06 

R 

0006 

R 

0025 1 7 

R P mP 

"006 

R 

0P2520 

R P M P 9 

0006 

R 

0015 

R 

POI 570 

TaURFC 

0006 

ft 

007524 

TC 

pO G 6 

R 

ooio 

R 

nmol l 

tfbl 

" 0P6 

R 

C02543 

TG AS 

r"CO 

R 

0006 

R 

002553 

T 1 M £ F 

COO 0 

R 

OOP 2 0 7 

Tl memo 

n9 f)6 

R 

0006 

R 

00352*1 

TMV ALO 

0017 

R 

Or 9037 

T M VI 

""96 

R 

OQl 3 

R 

nm n?3 

tprrl 

"006 

ft 

004470 

tTo 

0006 

R 

0006 

R 

00451 *1 

VDLC 

m"6 

ft 

G"4524 

'ft 

r"96 

R 

0 OO 6 

R 

004552 

• V I MJ 

roo6 

ft 

Of 45 7 z 

Y'NOZ 

poo 6 

R 

0006 

R 

00461 2 

W T o M n z 

POOH 

R 

P 1 4"35 

T £ M p 

pni5 

R 

0003 

n 

oo n n ? 6 

XK ACC 

"014 

R 

1104 "03 

XKP 

ni 1 4 

w 


OOP 4 4 ft 

343g 

POO 1 


001207 

37DL 

oooi 


000606 

4UG 

n-n 1 104 

4 5 3s 

r"Oi 


OOP 2 3 9 

50L 

0001 


001214 

5l7 G 

00 " 046 

ACC 1 

nco5 

ft 

nooo?" 

AC 1 

0005 

R 

000040 

AC 2 

Op"Onr 

ALPHA 

coo6 

R 

"OOOn" 

apea 

0006 

R 

000020 

AREaC 

GDI 440 

aRegmx 

mis 

R 

nn 1 45" 

A ft EGP 

OOU 

R 

000000 

APHO 

nnpQpn 

BK 

"006 

R 

"00033 

CC 

0006 

R 

000043 

CCC 

OOPO"" 

CHAM 

POO 4 

R 

0000 ?^ 

CL 

0006 

P 

000057 

chan 

0"0 1^2 

CP 2 

P006 

R 

090 1 1 r> 

CSTAR 

0006 

R 

000120 

Csl 

onr 1 47 

C V El 

"004 

ft 

"0005" 

DELT 

0006 

R 

000151 

DeLtF 

OOOO"" 

dfbl 

"0 15 

R 

001464 

DRW 

0004 

R 

00005 1 

DIAL 

On 1 4 6 l 

DMC2 

CO l 5 

R 

00146? 

DMC 3 

0015 

R 

001 463 

CMC 4 

Or" 1 74 

OPTO 

C006 

ft 

"00 1 76 

"RPMT 

0006 

ft 

000200 

D70 

"002 1 C 

PttFUEL 

noo6 

R 

0002?" 

D#OX 

OOOO 

R 

000024 

el 

00 113** 

FLAG 

"015 

R 

001465 

FREG 

0004 

R 

000075 

FrL 

nn"232 

GAM 

nn04 

R 

0001 22 

GC 

0006 

ft 

000234 

GP 

ooron7 

I ACC 

nol 1 

I 

0000 m 

1 ACCPR 

0006 

1 

000236 

IcHa^ 

001476 

I OUM 1 

cois 

I 

001 477 

! DOm j 1 

0015 

! 

001500 

iDUtflP 

0 0 0 0 1 3 

1 DUM2 

POO 3 

1 

nonoi ** 

IDUH3 

0003 

1 

000015 

IE^ACC 

0n"25 6 

IENg 

noio 

1 

"00764 

I F 0 L 

OOOO 

! 

onl 134 

IfLag 

GpnOnO 

1 JUNCL 

noon 

I 

" 0 0 0 3 11 

INCL 

00 1 3 

I 

0000 I 2 

IpB 

OPn Qn 2 

I PR I HI 

roo n 

I 

0002 j 4 

IPROP 

0006 

I 

000257 

1 PUm! 

000263 

ISP 

"006 

R 

DO 0 27 3 

IS1 

0006 

R 

000274 

IS2 

nm 136 

ITjAO 

"OOP 

I 

001175 

ITIC 

OOOO 

T 

001176 

itic n 

Onl 237 

ITipn 

"000 

I 

"0 1 24rt 

ITIPO 

nooo 

I 

001277 

TtIR 

9Ci 340 

1 T r t 

pnoo 

I 

"01341 

IT1TN 

oooo 

I 

001342 

itito 

OC 1 4 n 3 

itplo 

noi 1 

I 

"00004 

ITURbN 

oooo 

1 

000222 

I* 

000210 

1 s 

"000 

I 

"D027P 

JJ 

0006 

R 

000302 

K*Y 

0004 3 2 

K A Y 1 1 

roo6 

R 

00032? 

K A Y 2 

0006 

ft 

000332 

K A Y 3 

000362 

K A Y 6 

0006 

R 

000372 

KAY7 ’ 

0006 

ft 

000402 

kayo 

OnC060 

LFLAG 

oooo 

1 

000225 

LL 

0015 

I 

001502 

LPEGON 

onnci 2 

LVUP 

"006 

R 

000442 

MR 

0006 

R 

000452 


QP" 464 

MW 2 

oroo 

I 

000221 

N 

0003 

! 

000017 

NaCc 

000473 

mcoef 

coon 

I 

000226 

HE 

0010 

! 

000776 

NF0L 

000024 

NKPBLF 

no 1 ? 

I 

000063 

NL1NJU 

0007 

1 

000035 

nn 

PO01 ?3 

nodcl 

no l 3 

I 

000074 

WPBL 

0014 

1 

000036 

npblf 

00 1 2rC 

np 1 c 

0004 

1 

"00147 

WFJPL 

oooo 

1 

001241 

NpIpR 

0001*0 

N PL 1 ME 

"0 1 4 

1 

000037 

mppblf 

oooo 

1 

001404 

NpPLT 

onosnft 

N P V A LO 

0015 

I 

001522 

nreg 

0015 

I 

001523 

N70UM 

000025 

NXKVL 

oooo 

R 

non 63 

OFFI a 

0000 

R 

001224 

o f fic 

001367 

OFFI T 

oooo 

R 

00 1 43C 

OFFPLT 

ooon 

R 

001 151 

on 1 a 

091314 

ON! R 

nooo 

R 

001355 

ONIT 

0000 

R 

oni4U 

OnPLT 

0 OO 02 J 

PACC 

"014 

R 

"00051 

PBMOL 

0006 

ft 

002415 

PcHA« 

0P?4?5 

PHAN 

0006 

R 

002445 

PMR 

0006 

R 

002453 

Po^p 

0 P 2 4 6 1 

POW 1 

roo6 

R 

"02463 

P 0 W 2 

0006 

R 

002465 

P0«3 

nn"037 

PPRBL 

0016 

R 

0"00n4 

PR 

0006 

R 

002467 

pratc 

004 1 t 4 

ptemp 

"006 

R 

002477 

pro 

0015 

R 

001545 

PU 

0025"5 

PW2 

oooo 

R 

90007" 

PZOO 

0015 

R 

001546 

qreg 

0P25"7 

rgas 

noo4 

R 

0 1 0P34 

rhol 

OOOO 

R 

000216 

RnOdEL 

002572 

RPMT 

0004 

R 

010044 

sinalp 

0015 

R 

001560 

SpftEG 

002534 

TCI 

"006 

R 

002535 

TC2 

OOOO 

R 

0001 1 4 

T pMpS 

non J 36 

TH 

noo4 

R 

010070 

theta 

0004 

ft 

0101 14 

time 

O02S54 

TIMPUL 

00 1 4 

R 

001047 

tkpblf 

0006 

R 

002564 

TmVALF 

004464 

TORP 

""0 6 

R 

004466 

TORT 

0014 

R 

002033 

TpBlF 

004472 

U 

"906 

R 

004474 

V M A N 

0003 

R 

000024 

VoLACC 

"P4532 

w C H A M 

0004 

R 

010115 

wqoti 

0006 

R 

004542 

WpUEL 


w OX 

0016 

R 

OOO0n2 

V J R 

0016 

P 

onoons 

Wg 

PO 1 6P0 

IAW 

"006 

R 

nQ467? 

XITp 

0017 

R 

no 1023 

^ K 

""30 J 7 

X K P P L F 

"017 

R 

901035 

XKVL 

0007 

R 

000936 

XlEnGL 



000 6 H 00*4?** XI. TO 




1.17705 7 


nn ! 6 f? P«npn 3 yp 


rni/s p ooon 


0000 R 000 t 6 2 Zo 


f’OlOt 

l ® 

30103 

2* 

00103 

3 * 

CCIO 1 * 

H w 

0010 s ! 

R« 

0010 s ! 

6* 

0010 s * 

7* 

0C1 0 s * 

6* 

00105 

9* 

00106 

\0* 

00106 

i !« 

op 1 07 

1 ?* 

00 1 07 

1 3 o 

00107 

1*W 

0C1I0 


ooi 1 1 


00111 

1 7 * 

oom 

18* 

00 1 I I 

19* 

00! 1 1 

2P« 

ooi t 1 

2t« 

0011 1 

22* 

00! I 1 

23* 

00! 1 1 

28* 

00111 

2B* 

CO 1 l 1 

24* 

00 111 

27* 

00111 

2 8* 

OCI 12 

29* 

00113 

30* 

00 1 I s * 

3 1 * 

00! IS 

32* 

00116 

3 3 ♦ 

00116 

3*ift 

00117 

35<* 

00117 

36c 

00117 

37 o 

00120 

38ft 

00120 

39* 

00 1 20 

M 0 o 

00120 

Ml P 

00121 

^!2o 

00122 

<43* 

00122 

*18 • 

00 1 23 

<45* 

001 2 s ! 

86* 

0012*1 

87* 

0 0 1 2 ‘1 

8 B ft 

0012 s ! 

89* 

0012*1 

50* 

0012*1 

* 

00 1 2*1 

52* 

00 | 2H 

5 3 * 


trapped 1 
K f YP,K/ Y?,TR apPPC7 

TP*o»nnn"4 


EXTERNAL CHAM 

PEAL iSPtlSluS^fKAYtKAYl , F A Y 2 ,K A Y 3 ,K j> Y 8 , K A Y$ , K A *6 , K A Y 7 t - p , . 7 „, . 

1KAY1P%KAY) I , M R , M R l , M , M ^ 1 * M l 1 ' 2 T R A pn p P 3 

DIMENSION AtPHA { 2r ) > pL ( 8 > ,fLaG^ 3, 6) ,irU6<33,/)) , T NcL < 20 ) ,LFLAG< s> ) TR A pn<nnM 

! » NPI A MH* , NPlr tWPJP^ M r > • NPIR M P> f T Ur) f NPPLT ( 10) p OFF I A I t«>T«APnnn5 

7,nFFlc < ^ > »OFFlPP( 10 ) tnFFIP (ID ,OfFIT( 10) ,OFrPLT (1 fl ) , ON I A ( 1 0 ) , TR AP p O r 4 

30Nlc{n)»ONIPR(ir),0»jiR(]n)»ONiT<iO)»nlJPLTM^),PZan(2o) l TFMPs(3,4) TRAPnnn7 
4 »TU I?*' ) f ?n 1 TRAP n O r ^ 


8,THl?C> ,70(20) 

D I MENS I ON 1 F L A <1 1 ( A ) 

COMMON /ACCC0M/nPACC»DUM<6) *IACC«Z> » I DU M , I (MJ M t , TDUM2, JpUm3, 

[ TEN ACC (?) iNACr f WHL»N # pA r C ( 2 ) ,PPPP , VOL ACC £ 2 J , XXAfC C 2) 

COMHON/ALLCOM/aKFAL l 29) *cl I 2n) # r)EI T »DI AL r 20 ) ,F»L < ?ni f G t GC • 

TNOOtLi^O^ ,MPlPL|NPLiNF{? p ) ,PL(Z0,1^) t PTFMP{?n f 100) , RHOL t ) , 

’SjMAl P<? # M »THrTA(’ p ) f TiMEirfOOTLt 2 r f tnr) f flTEMpl?P> 100 | ,Z< 2 P|lrn) 
Cn^Ho*i/ALLCS/\C<P»2JiA C l«^» ;> )»AC2(?> > Ar3(?) f AC £ +f2) ? ACCH2J 
COMMON/CHAM RR/aPEA | 3<?) , A P E A C (8) t ATn t ATONOZ(?) ,CC(8) t CCC(8), 

ICEFM2) »CEF2(?) tC'UNfO,?) *CP<2),CPIiCP2f6f »C5 TA***) ,cS* »CS?£6) , 

2CV(a,2) , C VEL £ 7 ) t 0 E L T F « n I A T (2) »DPMAN ( A ,2 ) ,oPTo( 2 )*ORPmT( 2 ) ,OTd ( ?) , 

3 0 7 1 ( 6 ) f nWP»IELU> *0*0* < 8) , E T AT ( 2 ) , 6 A M I 2 ) . GR < 2 ) , I CH A* l R , 2 ) , l FNG # 

4! PlIMr (?) , IPUM0(2) , ISP(Q) , IS! I IS2<6) fKAY (8> ,KAY 1(6) t KAY2 t 9) , 
SKAY3(P) > KAYM(fl)iKAY5(B) f KAY6(8) > KAY7(6)*KAY9(a)iK A Y9($) > KAYlr(p) c 
AKA YU ,MR1 ,MW(8) t M\vl ,MW2(M , N C H A M , NC OE F ♦ NgG T P , N P V A (6), 

7NpVALO(R)»OPVALF(8 t 60),OPV A LO(8 > 6n) ,FcH4Hf £ t 4 PMAN( 8 f 2) ,PMR (6 ) t 
APOtfP ( 2 ) , P 0 W T (2) t P 0 »Y0 { 2 1 * P 0 *v 1 (2) 9 P q W 2 { 21 , P0W3 ( 2 ) • PR ATC < 8 ) > PTO { ? ) , 

9Prtr(2) |PW) (2) »p^2(2) >RGAS(9) |RPMP,RPMPD< 2) ,RPMT(2} t Tc(B> »TCl f 

»TC2(6) tT6AS(8> ^TI^EF.Tj^PULCO) t TMVALF te D 60) ,TMVALP(8*&0) ,TORP (?> , 

A TORT (2) f TT0(2) ,U(2) »VMa*< 8» 2 > , VOLC ( 8 ) t » C 6 ) t W C H A« < * > »WFUFL(P) » ' 

B W I N J ( 8 | 2 ) t WN07(©) t W0X(B) ,ATDNOZ(8),XiTP(2) ,XLTD(2) 

COMMON /DAT A2/BK( 6) ,DELXL<?a> , NCMTB , NN , XLENGU 20) 

COMMON/FPLCOM/OFRL ( iO»50) , 1F&LU0) |NFrL»NpfbL( 10) ,TFRt ( 10 ,5C) 

COMMON /FLAGS/ I ACCPR, 1 CHAMP , ! PR I NT , I REr,PR , I T U *6 M » I PLOT 
COMMON /JUNCLC / T JUNCL ( lp t 5) , N JUNCL , ML J N JUt JO) 

commoh/palcom/ j end ( in) , tpa no) , nppl»nprrl( 10 ) t pPRRL(ir>so) , 

ITPW8L (10,50) 

COMMON/PpLFCM/IE^orCjCinPRFClOljNKPBLFCtnljfjpBLF^NPPpLFnO), TRAPP035 

IP0NOL t 10) tPPBLF ( 1 " iSo) f TKP?LF ( 10,50) >TPBLF ( ln t 50) ,XKPBLF C 1 n tSP) , TRAPOP 36 
2 X K F ( pi TRAPOH37 

COMMON/REGLCM/ARFG(8 l IrO),AREGMX(B)iAREGP(8) 1 DMCltD M C2,DMC3 t DMC^, TRAP "0 38 
1 OF A »FREG( 8 > • F.V, IfeUM! * iDUMI I i TOIJMIP , 1 D UM J J , L R F C0 N ( 8 ) ,LREGUP(fi) # TRAP 00 3 9 

2NRFG tNTpOM ,NTREG f 3) iPD.PRFFlBl ,PU f QREG( 8) # 0 1 pU M , Q ? DU M , SPR E G ( 8 ) , TRApnn^tC* 

3T%URFG(P) TRfiPOCm 

CO vmom/V ALOES/ ARHO .GRH n ^'R f ZR *PR t wS f ZS »PS TRAPP042 


TRApnorB 
TRaPHOO? 
TR APHP ] n 
TRAPnP] 1 
TR A^OP 1 ? 
TRAPPP) 1 
TRAPnnl M 
TRApOP I S 
TRApPOI 6 
TRAPOP) 7 

trap nn l 8 
TRAPPPt ? 
TRAPPP20 
TRApno21 
T PA POO 2 2 
TRAP0 n 23 
TRAPOP 
TRAP002S 
TRAP0P26 
TRAP0P27 
TRAP0P2G 
TRAPP02? 
TR APOO 30 
TRAP0031 

TRAPPQ32 

TRAPH033 

TRAPP03^ 

TRAP0035 


TRAP0039 
T r A pnn c* 
TRApOP^ 1 
TRAPP042 
TRAPG0^3 
TRAPOH^*) 



I 2 

? * t OFF I 

3( IT ICO 
*1 < Off TC 

5 ( I T 1 PO , . . ^ 
6(0^FIP p £ 1 ) 
7 ( IT 1R0 



00124 

54* 


MOrr IR( 1 ) , FLAG <24, 4) 1 , ( ITlT, I FLAG! 1 ,5) 1 , ( T T l TN , 1 FL AG ( 2 ,5 )) 

9 

TRAP0054 

00] 24 

55* 


9UTIT0, IFLA6<3,5) ) , (NPiTtl) , lFUAfi(4,5) 1 ♦ (ONJTU 1 .FLAG! 14,5)1, 

TRAP0055 

00124 

56* 


« (0FF1T ( 1 ) ,FLAG(Z4,SI ) , { tTPL,IFLAG( 1 ,6)1 ,(1 TPlN, IFLAG(?,6) ) 

i 

TRAP0H56 

00124 

5 7* 


A ! ITPLO, I FLAG (3, 6)) , (NPPLT! 1 1 , I F L AG < 4 , 6 ) ) , ! ON PIT { 1 ) , FL AG ( l 4 

,6 n , 

TRAP0057 

00124 

58# 


n ( OF FPL T ( 1 ) ,Fl AG!24,6) ) 


TRApnnS8 

0017S 

59* 


NA«EI IST/tNOATA/ALPHA. A , AREAC .AREGMX , A* 5 F6 p , aT DNO Z , F) K , C EF 1 ,CfF? 

t TR APO059 

0C1 25 

60* 


ICL,CMAH.CPl,CP?,CSTAR,cSl.CS2,OELT,0ELTF,0Ft)L,0lAL,DlAT,0TD,EL. 

TF?APnn60 

00125 

61 « 


7FArTnR,FREG,F4L»G,GR,lACC,IACCP4,lCHA«iICHAHP t tFNACC.IEN0, 

TENDF, 

T R A P n 0 6 l 

00125 

62* 


■u FPL, I JUNCL, t Ncl-, t PB, IpbF,! PLOT, 1 PRINT,! PUP! , 1 PUMO , I R£GP R , 

ist ,ts? 

t TR A P0062 

00125 

63* 


H t TURbN.Ka V ,LFLa 6*I REGnN t LPEGUPiLVnN,LVllP|HRl ,«W1 »MW2 ,Nacc» 

N C H A M i 

TR A pnOft3 

00125 

6*4* 


5'ICOEF ,MFfiL»NGGTP ,N JUNCL ,NKP rLF.NL!NJU,«P8L ,NPbLF ,npfbL ,NP! a ,npic , 

TR A P0064 

00125 

65c 


ANP1PU,NP!PR,NP[R,PPTT .upline .nppblf, npplt, nprbu,mpvalf,npvalo , 

TRAPP065 

00125 

6 6* 


7NRFG,NVALL,NXKVL,0Fn A , OFF I C ,OFF I PR ,OFFI R , OFf 1 T , OFFPLT ,ONT A ,ONIC, 

TR AP0066 

00125 

67* 


flOUlPR ,0N [R ,0NIT,0MPLT .OPVAUF .OPVALP ,PACC , PO’Afo , P OW 1 ,P0W2 ,Poft 3 , 

TRAPH067 

00125 

68* 


9PPPLF . PPROL ,PREF ,PWO ,Pwl ,P»>'2 , P ZOO , Q REG t RG A S , RHOL , R PHPO , S P RE G , 

TRAP0068 

00125 

6 9 o 


«TAURFG,Tcl»Tc2,TFBL»TGAS,TH,TIMEND,TKP8LF,TMVALF»T!SVALa,TNVL, 

TRAP0069 

00125 

7 0 o 


ATPBLr l TPRflL,VMAN 1 VOLArCtV0LC|XITP # XKACC»X|C^BLFtXKVL > XLeNSL 

,XLT0,7nTRAPnO70 

00126 

71 o 


DATA 1NCL/20*0/ 


TRAP007 1 

00130 

72* 


0 AT A ITIA,ITIC*lTiPtiTiR,ITTT f ITRt/6M/ 


TRAP0072 

CO 1 37 

73* 


DATA IT1 AM»lTICNttTIP» t ITIRH# ITITN, 1TPLN/6*2<I/ 


TRAP0073 

00146 

74* 


DATA iTIAOtincO^ITIPOtinROilTITOiITPLO/ApU/ 


TRAP0074 

00155 

75* 


DATA NPIA*NPlC|NPIPR,NP!R # NPlT # NPPlT/60*0/ 


TRAP0H75 

00164 

76* 


DATA OFFT A bOFFIC ,OFFIPr ,OFFIR ,OFF! T , 0FFPLT/6n*0*0/ 


TRAP0076 

00173 

77* 


DATA 0MTA > 0NIC,0MIpR,0NlRt0NlT > 0NRLT/6DoirD*n/ 


TR AP n 077 

00 173 

79* 


RFSET CLOCK Om MACHINE 


TRAP0078 

00202 

79* 


CALL RESET 


TRAPHH79 

00202 

an* 

c 

PUT DATA DECK on SCRATCH FILE ANo LIST 


trapoobo 

00203 

81 * 


CALL CRZTAPI 6HDECKEN, I2t55,5 t 6) 


Tn APnn 8 i 

00203 

82* 

C 

READ PROGRAM qATA 


TRAP0082 

00204 

8 3 o 


REAO( 1 2 , INDATa) 


TRAP0083 

00204 

84* 

C 

initial calculations 


T R AP0084 

00207 

85* 


NCMT8*NCHAM+NGGTp 


TRAP00B5 

g 00210 

86* 


KOUNTkP 


TRAPOO06 

0021 1 

87* 


DO 10 1=1*8 


TRAP0087 

00214 

88* 


KAY 1 ( I) ^KAY ( n + 1 


7RAPP088 

00215 

89* 


K A Y2 ( I ) =K A Y ( T >-l • * 


TRAPP089 

00216 

90* 


K A Y 3 ( I ) =K A Y 1 ( I } /K A y 2 t I ) 


TRAP009P 

00217 

9 1 * 


K A Y 4 ( I 1 = 2#0/KaY MI) 


TRAP0091 

00220 

9 2 * 


KAYS ( 1 > =»K A V C I ) /K A Y 2 ( \ ) 


TRAP00?2 

00221 

9 3 o 


KAY6 (I >a(KAY{ l 1+1 #0)/K A Y( l) 


TRAP0093 

00222 

94* 


K A Y 7 ( I )*1 *0/KAY I I 1 


TRAP0094 

00223 

95* 


K AY 8 { I ) * ( 2 ♦ 0-K A Y ( I J ) /K A Y ( t ) 


TRAP0095 

00224 

96* 


KAY9 ( I )*2. O/KAY < I ) 


TRAP0096 

00225 

97* 


K A Y 1 0 ( f )=?«0/KAY2 ( i ) 


TRAPH097 

00226 

98* 


KAY M fl) = K A Y 1 ( 1 ) /K AY ( 2 ) 


TRAP0093 

00227 

??o 


CCCIJs^^RTIKAYf l)*GC/tRGA5(M*T5A<5MM*KAY‘M I )«*KAY3(in 


TRApon99 

00230 

ion* 


ccc ( I )BSORT(Gc*KAY ( I ) /RGAS ( n/TGAS ( 1 ) > 


TRAP0100 

0023 1 

101 * 


PRATc (I ) =*K A Y4 ( I )*«KAY5( I) 


TRAP010I 

00232 

1 02 * 


ir continue 


T R A P H 1 0 2 

00234 

103* 


nm=delt/deltf 


T R A P 0 1 0 3 

00234 

104* 

C 

CALCULATE 5PF E d OF SOUND IN EACH LINE 


T R A P 0 1 H 4 

00235 

105* 


DO I T si ,NPIPL 


TRAP0105 

00240 

106* 


iprop«wpline UI > 


TRAP01 06 

0024 1 

107* 


IF ( i NCL t 1 I ) *E0* ) ) GO TO 5^ 


T R A PO 1 07 

002 4 3 

1 0 8* 


IF (LFLAM IPROP 1 ♦ EQ • 1 ) GO TO 30 


TRaPO 1 08 

0024S 

i 09* 


CL C I I )=S0R7 CKaYMPROP WGC*PGASUPROPl®TGAS(!PRaPn 


TRAP0I09 

00246 

I in* 


GO TO 50 


TRAPP t 1 0 

00247 

1 11 * 


V s f OUT t HUE 


TRAPP! 1 1 



30250 

1 l ? ♦ 



nun eSnRTuJ^PnP ) **c* 1 W4.0/RHOL < 1 PF 0 P )/{ 1 # 1-1 + B K ( IPROPMOlALfM 

1 TRAP^k 

30250 



1 

i/rujpwnp) / > ) 

TRAP 

00251 

114* 


5 

cOMitnnF 

TRAP'^V 

?025 2 

11 B« 



0ELX*nFLT*FACTOR*CtU!) 

TRAPn] )5 

3n253 

116* 



MOpFL t ! 1)*XLEM*5L< M )/DpLX+t .0 

TRAPn) 1 6 

r*0 254 

1 1 7 * 



RNPOFL^NODFL fir) 

TRAPOl 17 

30255 

MB,. 



OFLXKM )*XLFNPL m J/<n400Ft-1.0) 

TRAPC I 1 8 

P0256 

11 9* 



A ° f A L < l 1 1*3* 14 15927*01^11 tl ) * D I A L { \ I 1/4,0/144*0 

TRAPP M 9 

DC 2 5 7 

1 20* 



I rj AL P * t T 1 s S l M t ALPHA C T I ) /57#Z9578Q1 

TRaPO) 20 

00260 

l 2 1 * 



THETM I I ) =OELT/DELXL (It) 

TR A PP 1 2 ) 

0026 1 

12’, 



Nfronri *N00EL +11) 

TRAPP 1 22 

00262 

1 23* 



oo 7P |J = t ,MN0 dEL 

T R A P n 1 23 

00265 

1 ?4 i 



7f!liiJ)aZllUI > + < JJ- 1 ) ft D E L V L ( I I 1 * 5 T N A L p I I I ) 

TRAP0124 

00266 

1 25 o 


7 - 

continue 

TRAPO ) 25 

00270 

1 26* 


9^ 

CONTI HUT 

T R A P n I 26 

00270 

1 ?’* 

r 


CALCUtATF STARTING CONDITIONS 

TR ftpn J 27 

On 2 7 2 

l 



00 IIP J IM * NM T PL 

TRAPT 1 2B 

00275 

129. 



NNOHF1 sMOOtL ( 1 l ) 

TRApOI 2? 

00276 

1 30# 



I PROPrsM^L INE (11) 

TRAPC1 3P 

00277 

13U 



no mo j j*i f wnnpPL 

TRAPO 1 31 

00302 

i 32* 



v»ootl( t I , JJ)=C*C 

T R A P n 1 32 

00303 

13 3# 



PL Ml , J Jl»PZ03 t I t )-G/G c *RHpL( IPROP >«Z ( I I • JJ) 

TRAP0133 

0030*+ 

134. 


1 1 ? 

COMTINUE 

TRAPC1 3'+ 

0030*+ 

135, 

c 


TNIT1 aLIZaTjOm FO'? REGULATOR 

T R A P n 1 3 5 

0C307 

1 36* 



00 130 |=1 iNRpG 

TRAPn 1 36 

00312 

1 37* 



NTREGd )=TAUR£r, ( M /OEtT + O.nO^l 

TRAP0137 

00313 

134* 


135 

continup 

T R A P o 1 3 fl 

co 0tt3l3 

1 39* 

c 


INITIALIZATION for THRUST CHAMBERS a no gas turbine 

TRAP01 39 

** 00313 

14 0* 

c 


CHAMBERS 

TRAP01 40 

00315 

14 1* 



if (NCMTfuLE.'M GH To 170 

TRaPHI 4 1 

00317 

142* 



00 150 1*1>NCMTB 

TRAPO 1 4? 

00322 

1 4 3 * 



00 150 N=1 ,2 

T R A P 0 1 4 3 

00325 

I 44* 



I I si CHAM ( I ,N > 

TRAP0144 

00326 

1 4 5 * 



J J=NODFL ( I I ) 

TRAPO I 46 

00327 

1 46* 



prrMP(n,JJ) a PL(ii ,j.j> 

TRAP01 46 

00330 

147* 



*VT FHP( I I , JJ)*.VfjOTLC 1 1 i JJ) 

TR APO 1 47 

00331 

1 43o 


is: 

CONTINUE 

TRAPO J 48 

0033*+ 

149* 


t 7"' 

CONT I NUF 

TRAPPt 49 

0033*+ 

1 50 © 

c 


VvRlTE INITIAL PLOT d ECORDS IF PLOTS ARE BEING MADE. 

TFAPPISC 

00335 

151 • 



IF( IPLOT,NE*OJC6LL *RItEO) 

TRapO l ^ l 

00335 

I 52* 

c 


YRITE 1NITAL CONDITIONS AND INPUT CONSTANTS, 

TRAPO J 52 

00337 

153* 



call *pite ( n 

TRAPO! 53 

00337 

154* 

c 


TNCREaSf time 

TRAPHI 54 

00340 

155* 


1 90 

CONTINUE 

TRAPO 1 55 

C034 1 

156* 



T I MEaT I ME + OELT 

TRAPO] 56 

003*+ 1 

J 57* 

c 


SET PRINT AND PLOT FLAGS 

TRAPO! 57 

003*+ 1 

15a® 

c 


I « 1, ACCUMULATOR print flag 

TRAPO 158 

C034 1 

15?* 

c 


I a 2 , COMBUSTOR PRINT FLAG 

TRftPO J 69 

C034 1 

1 60* 

c 


I b 3, nominal print flag 

TRAP01 60 

0034 1 

16 1* 

c 


I = 4 1 REGULATOR PRINT FLAG 

TRAP01 6 l 

0 0 3 4 1 

l 6 2 o 

c 


1 » 5, turbine print FLAG 

TR A p 0 1 6 2 

0034 1 

163* 

c 


I » 6* PLOT FLAG 

TRAP01 63 

003 4 2 

1 64 t 



On 250 I a 1 i 6 

TRfrpO l 64 

00342 

1 65* 

c 


sft index fqr co m pUted go to 

TRAPO 1 65 

0034& 

166* 



I X = 1 FI AG ( 1 , I 1 

TRAPO | 66 

00345 

1 67 Q 

c 


SET SURSCRIPT FOR MIME To TUP*J FLAG OFF r ARRAY 

TRAPO i 67 

00346 

165* 



1 v => IFL AG f 2 , U 

trapoUb 

00346 

1 6?# 

c 


SET SUBSCRIPT FOR MIME TO TURN FLAG ONt ARRAY 

T Rap p i 6 9 



00347 

17 0* 


I Za I FLAG ( 3 , ! > 


TRAP0170 

00347 

171 ♦ 

C 

GO TO ’TURN 0 N « OR ’TURN OFF • FLAG 


TRAPOI 71 

00 3S0 

! 7 2* 


GO TO (213,230) *IX 


TRAPH1 72 

0Q35O 

1 7 3 * 

C 

CHECK FOR TlNf TO TljRN FLAG ON 


TRAP0173 

00354 

1 7 4 o 


2 1 ~ CONTl HIJF 


T R A P n 1 74 

00352 

\ 75e 


JF ( T I ME .LE.FL4G ( I Z » I ) ) GO TO 2S0 


T R A P 0 t 7 5 

00352 

17 6* 

c 

TURN Ft.AG ON, INCREASE SUrSCRIPT, 

change setting of r,n TR A pni7i 

OP 352 

1 7 7 o 

c 

TO FLAG 


TRApni 77 

0035*4 

179* 


I FLaGI ( X )aIFLAG(JZ~10,l 1 


TRAP0178 

OP 355 

179* 


IFLA G 1 3, t ) « IFL a G<3, 1 ) *1 


TPApn 1 79 

00356 

1 90* 


1 FLAG ( 1 , 1 ) a2 


TRAPH1 8H 

00357 

1 9 U 


GO TO 2G0 


TRAPH1 8 l 

00357 

1 42« 

c 

check fop HHe to turn flag off 


TRAPni 8? 

00360 

183* 


?3r cO NT I hi if 


TRAPOI R 3 

00361 

1 84 c 


IF ( T JMF.LE-FLAGt 1 y , I ) ) GO To 250 


TR APO i 04 

00361 

135* 

c 

TURN FLAG OFF, INCREASE SUBSCRIPT, 

change setting of 

GO T R a P 0 1 8 5 

00361 

186* 

c 

to flag 


TRAPHi 86 

00363 

18 7* 


iflagi ( I )=0 


TRAPOI 87 

00364 

1 39* 


IFLAr,(2,I)3lFLAG(?,n + i 


TRAPH 1 38 

00365 

189* 


(FLAG ( t , I ) = 1 


TRAPDI R 9 

00366 

1 ?P* 


zsr' CONTINUE 


TRAP0 1 ?n 

00370 

1 9 1 * 


K0UNT*K0UNT+1 


TRAPHI 9 l 

00371 

1 92 * 


CALL oJPEL 


TRAPHI 97 

00372 

1 ? 3 o 


IF (NPBL .GT.O I CALL fSL 


TRAPOI 93 

00 37 4 

1 ? 4 o 


IF(NVaLL.GT,0)CALL VaLvEL 


TR APO I 94 

003 76 

I 9 5 o 


IF(NJUNCL»GT.O)CALL JUNCL 


T R A P 0 l 9 5 

00400 

196* 


IF(NFBL.GT»0)CALL FBI. 


TR APH t 9 6 

00402 

197* 


IF (NPEG .NE.O) CALL REGL 


TRAPHI 97 

00404 

198* 


tF(NACC,NE.O»CALL ACC 


TRAP0198 

00406 

1 99* 


IF (NCMTB.LE.ru GO To 370 


TRAPOI 99 

0 0410 

200* 


00 290 1»! jNCNTB 


TRAP02nn 

00413 

20 1 o 


1)0 270 N= I , 2 


7RAP0?ni 

004 16 

202* 


I I bICHAH( t ,N I 


TRAP0202 

004 1 7 

203 » 


JJaNOOEL (in 


TRAP0203 

00420 

204« 


IPR0P*NPL1 NE t I I > 


TR A P0204 

00421 

205* 


CALL VAI ( I J , JJ , I PROP , 1 ) 


TRAPH205 

00422 

206* 


AC (I t N)«-,VR + AR£AL t I I >/cL (I J > ♦ (G«RHOL < l PROP ) « Z ( It » J J 1 ~GC»PR* M<* 

» **$©TR AP0206 

00422 

207 * 


1RH0L t IPROPUZR )+G/CL( I I WAR *5 INALp t 1 1 ) »DELT + F&L U I) oflR • ABS ( #R ) /2 , OTR AP0207 

00422 

2 08* 


2/OUll 1 1)» I 2.0/RH0L (1 PrOP)/AREAL(II >*0ELT 


TRAPH208 

00423 

209* 


ACI ( I ,N)=AREAL( II) /CL t I I )*l‘fi),0«5c 


TR AP0209 

00424 

2 10* 


?7<~ CONTINUE 


TRAP021O 

00426 

2lh 


IF (I.GT.NGGTP) GO To 2*0 


TRAP021 1 

00430 

2 12* 


I I a I p U M I (I ) 


TRAP02 1 2 

00431 

213* 


JJaNODEL (II) 


TRAPH21 3 

00432 

214* 


IPROPaNPLI NE (I I I 


TRAP02I4 

00433 

215* 


CALL VAL ( I I , JJ, I pR(lP , I ) 


TR AP02 1 5 

00434 

2 1 6* 


AC3 ( I ) S--VR*AREAL( II > /CL< 1 1 ) *( GeRHoL ( I PROP ) «Z { II , J J ) -GC »PR » ! ‘tH . 

O<S*TRAP021 6 

00434 

217* 


tRHOLMPRQP)*Z^)+G/cL{Ii)*WR*SINALP(II) »DELT + FPL ( M ) *WR*ABS (’VR ) / 2 # OTR APO? i 7 

00434 

218* 


2/D 1 AL ( l 1 )®12«Q/RH0LC 1P??0P )/AREAL(II)*DELT 


TRAP0218 

00435 

219* 


AC4(I ) « A RE AL ( 1 I ) / CL f I I )*14*|»0*6C 


TRAP021 9 

00436 

2 2 P « 


I I « 1 PUMO ( I > 


TRAP0720 

00437 

22 1 ® 


IPR0P«NPL!UE< 1 1 1 


TR APO 22 1 

00440 

222* 


CALL VAL(I I 9 1 *lPR0P t 2> 


TRAP0222 

0044 1 

223* 


ACC 1 m «-WS-ARPAL U I) /ct U T ) 9 < Ct*RHOL C I PROP ) 

*7(11,1 )-GC*PS«]*t<(. 

r~r:*TRAP0223 

0044 1 

2 2 4# 


! RHOL O^OP WS ) “G/CL { I I 1 S*SINAIP It 1 > •DELT + fRU I n <MS*ABS C vs > 

* TRAPH224 

00441 

225* 


2DELT/?»0/0l AU ! 11 /PH OL < ! PPOP ) / ARE AL < II ) M 2 • 

0 

TRAPH225 

00442 

226* 


AC?(f}B-Ai?EALUn/CL<Xi]*l 4'W0*GC 


TRAP0276 

00443 

277 • 


? 9 CONTINUE 


TRAP0227 



0C44S 

??*t 



00 35 J 



T R A P n 2^^ 



00450 

229, 






TR A 



DO 4 5 1 

?3 T 



T I MFF«Tl M e-OFL^^P 



TRAPn^^ 



00452 

23 U 



on 34 ^ LL“ 1 



TRAPD23 1 



00455 

2 3 2 o 



NF = 4 



TPAP0232 



C045 6 

2 3 3* 



/ m ) =4 o xni 



TRAP0233 



00457 

234 • 



A ( ? ) a t V Flirt < i ) 



TRAPP234 



00460 

235» 



i( 3 ) tsPi* AN ( III) 



TR APH7 35 



0046 1 

2 3 6 « 



A ( 4 J ssPMAN ( I ,2 1 



TRAP0236 



00462 

237# 



r)t < I ) “H'VOX 1 1 > 



TRAPH237 



00463 

Z3*o 



DW ( 2 ) =OWFUEL ( 1 1 



TRAP0238 



00464 

2 3 9 o 



D‘4(3 ) = nP'i AN C 1*1) 



TRAP0239 



00465 

240* 



OA 1 ( 4 } =nP**AN (!,?) 



TRAPH74* 



00466 

24 \ o 



If < T * GT »NGGTF ) 

TO 3 1 n 


TR AP024 1 



00470 

2 4 ? « 



N F ^6 



TRAP0247 



0047 l 

2 4 3 * 



V (5 ) sRPHT t I ) 



TRAPC243 



00472 

?44o 



V (6 > e P TO ( I ) 



TRAPH24H 



00473 

2 4 5 o 



DA {5 ) tsf'PP MT ( 1 ) 



TRAP024S 



00474 

246 » 



p“ ( 6 ) cnPTO < 1 ) 



TRA»P246 



^0475 

247* 


3 1 «** 

COrj T j n'JE 



TRAPH247 



00476 

248* 



CALL RtfIfS(TJ»'£:F,Drt.rF,W,0> .CHAM.CEtTeMPS) 


TR A PO 24 8 



00477 

249* 



IF { T •ST.NG5TP) GO 
4 P M T ( l' ) » V» 1 5 ) 

TO 330 


TR AP0749 



oosa l 

2 5 0 o 





TRAP0750 



^ 30502 
30503 

251 o 



PTO ( 1 ) =W ( 6 ) 



TRAP02S1 



25 2 » 


33*> 

CONT i riNF 



TRAPP252 



00504 

253 o 



-VOX ( I ) ( 1 ) 



TR A P 025 3 



00505 

254 » 



V'FUEL < I ) ( 2 ) 



TRAP0254 



00506 

255* 



PMANf 1 ,U*W13> 



TRAP0255 



00507 

256o 



P»AN{ I ,2)~^C4> 



TRAP0256 



0OSI0 

257* 


35."* 

CONT i MUE 



TRAPn?57 



00513 

2 5 8 o 


37- 

CONTINUE 



TRAPO2S0 



005 1 4 

257* 



IF (NPELP • G T *0>CA|_U 

PBLp 


TRAP02S9 



005 16 

2 6 0 e 



DO 3 9 S I I « 1 * Np J PL 



TR APO 76H 



0052 1 

26 1 * 



NNOOFL-NODEL (IU 



TR A P 0 2 6 t 



00522 

2 6 2 o 



00 3 7f JJa 1 *MNODFL 



TRAPH267 



00525 

2c> 3 o 



ADOTL U I , JJ> = .»TEHP( u ,JJ) 


TRAPP263 



00526 

2 64 o 



PL( II ,JJ)=PTEHPl I I , 

J J) 


TRAP0264 



00527 

2 65 o 


39-; 

COMTIHUF 



TRAP0265 



00532 

2 6 6* 



tFM PLOT*NE.O # aND.mOd (^OUMr* 1PL0T W EQ*H >CAtL U-RJ Tp * 4> 

TRAP0266 



00534 

267 * 



rFMPRlNT*NE*0*ANt>f 

M Op i KOI IHT, I PRINT) .E<5. n )CALL 

WRITE (5) 

TR A p 02 67 



00534 

2 68 *» 

c 


check For 

REACHING END CONDITION 


TRAPn?68 



00536 

2 6 9 o 



IF <T|MF.LT.T1hEND> 

GO TO lin 


TRAP0269 



00536 

27To 

c 


WRAP UP PLOT tAPF A NO PRINT RUN T?M£ 


TR APF.27n 



00540 

27 1 * 



CALL WRlTE(8) 



7RAP0271 



00541 

2 7 2 o 



STOP 



TR APH772 



00542 

273* 



F No 



TRAPH273 




rN o OF 

IJNIVAC 

line FORTRAN V COMPILATION, o diagnostic* 

MESSAGE (S ) 




TrAP 



SYMBOLIC 


21 JUL 71 

I5;pn;i7 0 01436670 

14 

;73 ( DELf Tf 6 ) 

HPO 1 4 A 



relocataple 


21 JUL 71 

I5:0R:17 1 C1446?46 

84 

I (DELETED) 







0 01446372 

14 

I7Z 



5*3 Block Data 


This compilation **5 done on 0 z sep 7 i“at~ 1 i : 52 : 01 

BLOCK oATA 

STORAGE USeb (8LOCK* NA.ME., LENGTH) 

0003 ALLCOM 023675 

0004 CHAMBR 004626 

0005 DATA3 001200 


storage 

ASSIGNMENT FO_R^ 

variables 

(BLOCK 

t type. 

RELATIVE LOCATION 

, Name) 









0Q04 

R 

00000 a 

AREA 

000*1 

5- 

000020 

aREAC 

0003 R 

00*3000 

AREAL 

OPOH 

R 

000030 

ATD 

0004 

R 

000031 

atdnoz 

0004 

R 

000033 

CC 

0004 

R 

000013 

ccc 

000*1 R 

000053 

CEF 1 

000** 

R 

000055 

CEF 2 

0003 

R 

000024 

CL 

-MJX4 

_R_ nnoasZ. 

CHAM 

00° 4. 

.S. P00G77 

-£E _ 

..... 0004 R. 

'QQz ini 

-CPL. .. 

0004 

R 

000102 CP 2 

0004 

R 

0001 10 

CSTaR 

0004 

R 

oonuo 

cs 1 

0004 

R 

000121 

CS2 

000** R 

000127 

cv 

000** 

R 

000117 

CVEL 

0003 

R 

000050 

CELT 

□ ooq 

R 

000151 

deltf 

0003 

R 

0P0051 

DIAL 

„ 0004 R 

000IS2 

diat 

0004 

R 

00015**, 

. DPHAN- ... 

0004 

R 

00017*1 

.OPTO _ 

oooq 

R 

000 1 76 

DRPMT 

0004 

R 

000200 

dtd 

0004 R 

000202 

D W 

000*1 

R 

000210 

OftFUEL 

0004 

R 

000220 

DHOX 

—0004 

R 

000230 

etat - - 

QOQQ 

R 

000005 

FACTOR 

0003 R 

000075 

FRL 

0003 

R 

000121 

G. 

- OOO 4 

R 

000232 

GaM. _ 

0003 

R 

000122 

GC 

0004 

R 

00023** 

GR 

0000 I 

000002 

I 

000 ** 

I 

000236 

! C H A M 

0004 

I 

000256 

ieng 

n-QQ,Q-_j- oaaoo^ 

I ELO T. 

_ . J300H 


000257 

IPUMl 

0001 I. 

. 000.26 1 

I PLfMQ 

. -J?QQfL 


.QML2AJ2L 

t 5P 

000 4 

T 

000273 

! S 1 

CD 0004 

I 

000274 

IS2 

0000 

1 

OC 0003 

IS 

000 ** I 

000302 

KAY 

0004 

I 

000312 

K A Y 1 

0004 

I 

000422 

KaVIO 

^ H004 

l 

000432 

KA^ll 

... 000 ** 

I 

OC 0322 

KAY 2 

000 ** I 

000332 

K A Y 3 

000 4 

I- 

O003JL2 

KAY4 

_ pooa 

I 

000352 

.^Al5 

0004 

l 

000562 

KAT 6 

0004 

1 

000372 

KAY7 

0004 I 

oonio 2 

KAYS 

000 ** 

I 

000412 

KAY? 

0000 

I 

oooooi 

KK 

„ 0000 

b 

OQOOOO 

LL 

. . 000 ** 

I 

000 ** **2 

MR 

... 000*1 I 

000152 

MR 1 

. 0004 

I„ 

.000453 MW 

0004 I 000463 

Mttl 

0004 

1 

000 <t 6 ** 

MW2 

0005 

1 

000000 

NAMCHM 

0005 1 

□ 001*6 

NAME 

0005 

! 

0002*12 

namepl 

0005 

I 

000160 

NAMTHP 

QBaa_ 

-X- 

.onnij.7-2^ 

MrMJlH 

— ao as 

JL 

.000*f7J_NCOEF, . 

noa*»_i. 

OPCLfLZ ** NGGTE_ 

0005 

_L_ 

00036? 

N ME 

0005 

1 

000432 

N M E T B N 

0005 

I 

000452 

NMOUT 

0003 

I 

000t23 

nodel 

ona3 1 

000147 

NPIPL 

0003 

I 

000150 

npline 

000*1 

1 

000475 

NPVALF 

_0D04 

X 

000505 

NPVA1.Q 

0004 

R 

0005 15 

OPVALr 

_ 0DO4 R 

00] **S5 

OPVALO _ 

0005 

R 

00065** OUTDAT 

0004 

R 

002 ** 1 S 

?CHaM 

0003 

R 

oon 174 

PL 

0D05 

R 

0CI05A 

PLOTND 

0004 R 

002425 

PM AN 

0004 

R 

002** **5 

P4R 

606*1 

R 

002153 

POWP 

0004 

R 

002<*5S 

POWT 

0004 

R 

002457 

POWO 

0004 R 

00246 ! 

POWI 

0004 

R 

002 4 6 3 _ 

P0W2 

0004 

R 

002465 

P0»3 

0004 

R 

002467 

PRATc 

0003 

R 

0C<* 1 I** 

ptehp 

0004 R 

002** 77 

PTO 

0004 

R 

002501 

p#o 

000 <* 

R 

002503 

p»i 


— OQQ<L 

.BLJ5Q25Q7 

RGA$ 

.0003 p 

Ql0£L3ff_ 

.RHQL- 

0004 

JR. 

0025*7 

RPHP 

0004 

R 

002520 

RpMpO 

000 ** 

R 

002522 

RPHT 

0003 

R 

010044 

SINALP 

0004 R 

00252*1 

TC 

0”004 

R 

00253** 

TCI 

0004 

R 

002535 

r C 2 

000*1 

R 

0025*0 

tgas 

gg03 

R . 

010070 

THETA 

0005 R 

00)176 

TIM 

0003 

R 

0101 1 4 

timjl 

0004 

R 

002553 

TJMPF _ . 

0000 

R 

000006 

T IHENO 

0005 

R 

001177 

TIME 

0004 R 

002554 

TIMPUL 

OOQ4 

R 

00256*1 

TKVALP 

0004 

R 

003524 

TnVftLO 

0004 

R 

004464 

YORP„ 

0004 

R 

004466 

TORT 

0004 R 

00*f 4 7 q 

TTO 

0004 

R 

004472 

l) 

0004 

R 

001*17*1 

vman 

0004 

R 

004514 

VOLC 

0004 

R 

001521 

» 

0004 R 

004532 

ft CHAM 

0003 

R 

0101 is 

Vi D 0 T L 

0004 

R 

001512 

rfuel 

0004 

-R. 

004^52.. 

WlNJ. 

000 4_ 

R 

004572 

W N 0 Z 

0004 R_ 

004602 

wox 

0004, 

R 

004612 

wtdnoZ 

0003 

R 

014035 

wtemp 

0004 

R 

004622 

X I TP 

0004 

R 

004624 

xltd 

*” 0003"}? 

017755 

z 










00*0 1 


00102 

2 0 

00 1 JO 2 

3 « 

00102 

4 « 

00103 

5 o 

00103 

6 d 

00103 

7 * 

00103 

Bo 

00)03 

9 0 



BLOCQnOl 
BLbc0002 
(5L0Cn003 
BLOC 000** 
BLOCOOOS 
BL0CO0P6 
BL 0 £ 0 00 7 
BLOCOOOO 
BL0CP009 



no 1 03 


00103 

i i « 

00103 

i ?» 

00103 

13. 

00103 

1 M*. 

00 103 

ISo 

00103 

1 A* 

00103 

1 7 * 

00)08 

ie* 

00108 

19* 

onto* 

20* 

ooios 

2 W 

00105 

2 2 « 

00)05 

2 3 « 

00105 

2H* 

00105 

25* 

00 105 

2 6 o 

00105 

2 7 o 

00105 

28* 

00105 

29d 

00107 

30 o 

00 112 

3! o 

00112 

32 * 

00112 

3 3 o 

00112 

3 n 

001)2 

3 5 o 

00112 

36* 

00112 

37« 

00112 

3«* 

00112 

396 

00112 

HO* 

001)2 

HI o 

00(12 

H 2 o 

00112 

H3e 

00112 


00112 

H5* 

00112 

4 6 . 

00112 

H7t 

00118 


001 H 

H9« 

00119 

SO* 

00118 

5 W 

00118 

52* 

001 1 8 

5 3* 

00119 

5H* 

00) 1 6 

55 o 

OOt I 6 

56* 

00116 

57* 

00120 

5 D o 

00120 

59* 

00! 20 

60* 

001 20 

61* 

00120 

62* 

00120 

6 3* 

00120 

64* 

00122 

6 5 o 

00125 

6 6 « 

00127 

67* 


A Y i t8) t KAY6!8> t KAY7{P} 4 yfi ( M ,K A Y9 t fl ) V K ftY | 0 { F ) 9 

,.u, . uui^t i i M.UlM i.^nrt Mcr.fp UPl/At r (ft) . 


* K A Y 1 1 ( 8 ) ,HR 1 , N « ( 6 ) t^ w l »MW2< 6 > ,N ( -HAM,f'CflEF'«NSGTP > KPVAt.F(Rt , 

7NPVAL0 ce ) »OPV aLF t 9 ,i0> ,OPVAL0t 8 , 60) .PcHAM I p ) ,PM*NJ 8, 2 ) ,PPS < 61 , 

8P0*‘Pf2) , P0 rt T ( 2 ) *P0Wl't2)»PpA'l f2) , Po W 7 ( 2 I , P 0lV3 t?) «P r a 7C(8) |PT0(?> , 
9Pft 0 < 2 ) , P*« 1 t 2 > t PW2 < Z 1 ,RGAS(R) »RPhP,RPMP 8(?1 , RPMT t 2 > »T C < 3 ) » Tf 1 , 
olc2(6) ,T6AS (8> «TlM F f .TIMPIIU (8 ) ,TMVaLF( 8 ,60) ,TMVAL0(8,60) ,T0RP t 21, 
ATORT (2 I ,TT0(2> ,Ut?> ,VM A N(fl,?1 ,V0LC (8> ,*<6) ,«rHAH<8) ,*FUEL<8> , 
B"lNj(fl,2),WN0Z(8)*W0X<fl) ,»>ToNOZte).XlTP(2) ,XLT0(2> 
C0PK0N/0ATA3/MAKCKW <ft > 1 ‘ , l» M A ,lTHP<6> ’ N A , ' E< ' ,<<,,N '' ,< E. p l- < ‘" ? > 2 *> NME ^ r ''' 
tMM£TnN(2,8) ,NHOUT( 1301 .0UTDATU30) ,PL 0TN D ( nf> ) , T I M , T ! MF 
data < (NAMEPL(LL,KK> ,LL*I ,80),KK“t ,Z>/3 HW]f »3HW2F ,3K™3F ,3HP«F i 

, 3HW5F , 3 H W 6 F ,3kW 7F ,3H»8F ,3HVJ9F , 9H1V 1 rf , 8 h»H I F » 8H* 1 2F , 1 HW 1 3F i 

2 8HWl8F,8HV»l5F,8n«t6f , 8 Hi* I 7F , 8H* ! 8F , 8H W1 9F . 8 MA20F , 3HP I F , 

3 3HP2F ,3HP3F ,3h p 8F ,3HP5F ,3Kp6F ,3HP7F ,JMP8F ,3HP9F ,8HPl8F, 

8 SUP I IF.HHP12F,8HP13F,HHP18F,4MPi5F f 4HP)*F,8HP»7F»9HP|8F,8Hpt9F. 

5 MHP2 n F»3HW|L ,3l(«2L ,3Hl*3L ,3KW8L ,3HWSL. ,3^*61. ,3 H«i7L ,3HW8L 

6 3H"9|_ ,HHW)nL,8n«l 1 L , 8 H«) 2L » 8H VM 3L , 9H» 1 <»L , 8M* 1 SL , 8HW ) *L . 8 K W l 7U 

7 9HA'lflL.8H«V19U,8HW?PL,3HP!L' ,3HP?L »3HP3 l ,3«P8l ,3HP5L ,3Hp6L 

8 3HP 7L ,3HP8L ,3hP9L , 8HP I GL » 8HP 11 L , 8 HP 1 2L , 8HP 13 L » 8HP 1 8 L * 4 HP I SL 

9 MHP16L,9HP17L,8hP1Rl ,8HP 1 9L >HHP?r-U 
DATA TIM/8 HTIHF/,Ti«F/5HTTMFF/ 

OA t A 1 <NAMCHM<LL,Kk I , Ll_= I ,8) » K K =« | ,1«I/6HPCHAM! ,6HPfHAP2 f 6H p CHA(3, 

1 6hPcHA v 18,6HPCHA18»6HPcHA« 6,6HPCHAM7 , 6 HP CH AM 8 , 6HV» C H A M 1 ,6H«CHAo?, 


6HPcWAN8 .6HPCHA1B, 6HPCHA«6 
6HWCMAM3»6H,VCHAH4,^HwCHA m 5 
AHC5TAR2 t 6HcSTAR3»^HrSTAR^ 
6 HP MAN! 1 t6HpMANl2t4HPMANl3 
6 hPMANI 6 *6 HP MAN 2 | >6HPMAH22 
6KPMAN27 i6HPMAN2G»HH!SP ! 

^HTSP6 ,HHI5P7 >4HI5PB 
3HMR5 *3HMR6 »3HMR7 
3HW»* P 3HtiVi5 * 3HMYJ 6 
6HftFUEL3 f 6HWFUEL 4 » 6HV/FUEL5 
**HW0X2 f 4HW0 X3 >4HW0X4 
HHCV1I ,4HC VI? •HHCV13 
4HCV1F ,4HCV21 i4HCV27 
i 4 HC V77 * 4 H C V 28 16HWTNJU 

6 hW!NJ! A» 6HW!NJ!7t6HWTNJl8 
' 6HWI«J?&#6HWINJZ6*AHWrNJ27 
DATA (N AME< I ) ♦ I *1 i / 
i 6HLVUP >6HNPLlNEf6H! JUNCt 

J 6HFPU t6HS!NALPt6HTH£TA 

S 6HXK? f 6HAREG j 6HP A C C 
i 6HDELXI .6HKAY * 6^K A Y 1 

> 6HKAY6 t 6 HK A Y 7 * 6HK A Y 8 

!» 6HPRATC * 6HRG AS * 6HRH 0 L 

DATA ((NMETBNU-l iKK*»LL“1»2) 
\ 5HP0WT2 .HHPTCH *4HPT0Z 
? BhTORT! t SHTOP T 2 » M HT T 0 1 

data ( nme ( I > > i = ! * Hr ) / 

[ 6HAFE65 »6HAREG6 »6HaRES7 
? 6HXK2 » 6HXK 3 ,6HXK4 
l 6HXK9 » 6 H X K I r *6HXKp1 
♦ 6HXKP6 i6HXKP7 ,feHXKPa 

> ^HP0ND3 t6HPBND*» » &HP ND ^ 

b 6HPBNPI0/ 

DATA NGGTP/0/» N CHA»/n/ 

DATA AREAL/20*P e n / 

data CL/2D tt 0*0/ 


o n r ^ r» * f w ■ 1 * s ~ v * p 

&HWCHAM6 ,6HWCMAH7 ,6HWCHAM8 t 6HCSTA R t * 

6HCSTAR5,6HCSTAF6» fe HcSTAR7 9 6HCSrA R 8> 
6 HPH ANt**,6HPMAN15 86HPMAN!6 9 6HPMANt7t 
6 HPM aN23 9 6NPMaN 2H ,6HPMAN25 ,6HPMAN26 f 
RH1SP2 ,^HtSp3 t^HlSPR ^HlSPS » 

3HMR 1 ,3HMR? »3HMP3 ,3HMR4 , 

3HMRQ >3HMWl f 3HMWZ „ 3 H M YO » 

3HMYi7 ,3HMW8 , 6HNNFUEL 6 >HWFUeL2 , 

6HWFUEL 6 t 6H^FuEL7 »6HWFUEL8 *^H w 0X 1 . 

4HW0X5 # 4 H WO X 6 ,^HW0X7 9 9HWOX8 t 

HH C V 1 ^ ,4MCVlS t ^HCVi7 * 

MHC V 2 3 ,4HCV?*! .4HCV25 9 HHCV26 i 

6HWINJ1 2,6HWtNJI3p ^HWIMJ t «* , 6 hW!NJ 1 5 , 
6HVYINJ71 ,6HWinJ22 »AHWJNJ23 > 6H , YINJ?4 1 
6 I NJ?&/ 

6HN00EL 9 6HIFND ,6HIPR ,6 hLVqN t 

6HIF0L *6 HARFAU i*HCL , 6HDlAL * 

6 H P L f 6HWDf>TL ^HPBNDL * 

fcHXX } 6HRX »6HCC 9 6 HCCC i 

6HKAY2 | A H K A Y 3 * 6HK A Y *< , 

6HKAY? 1 6HK A Y IP »6HKAY1| f 6HNTREG , 

6HTGAS ,6 HXLENCiU/ 

KK»l ,B!/ 5 H P 0 W P 1 ,5HP0WP2 
SHRPMTI *5HRPMT2 *5HT0RPJ 

MHTT02 
6 H A R F G ! 

6HAREGB 
6HXK5 
6HXKP2 
6HXK9 
6HPBNQ6 


, 5HP0WT l 
t 5H T OR p 7 
j 6 H W T N 0 Z 1 f 6HWTN0Z2/ 
,6HARFG? j)6HARFG3 ,6NAREG^ 
,6HPACC? 

, 6 H X K 7 
,6HXKP^ 

# iHP BNDS 


,AHPACCI 
* 6 H XK A 
,6HXKP3 
t AH XK P ! D 
# 6HPRMD7 


jAHXK t 
, 6HXK8 
, AHXKP5 
a 6HPBND? 
# 6 H PBNn9 


RLO/^B' 

BLOC^W 

ftLOr^ni 2 
BLOcOH J 3 

RL0c n <M5 

rLdc^O 1 6 

BLOc^H 1 7 
BLOc af M ft 
BLOc^ 10 * 9 
RLocon27 
BL0C002! 
BL0CCH22 
BL0C0H23 
,BLOC^ n ^ 4 

,BL0C n 025 

,BL0C0 n 27 
, BL0CCO2B 
BLOC°n29 
PL0Cirn3P 
RL0C0D3 1 
RLOC003Z 
RLOC nf >33 
BLocnn3^ 
BU0C003B 
BL0C0H36 
BLOCOn37 
BL0COO38 
BLocona? 

BLOC n n*io 
BLocOCH ! 
BL0C0n^2 
BLncnnH3 
BLOC n n^^ 
bl oc^n^ G 
BLocnP^6 
BL0CHD47 
BLOCOn^Q 
BLnc nn£ ^9 

BL0CP°5O 

BLoconsi 

BL0C0H52 

BLocnn53 

blocod^ 1 ^ 

BLocnnss 

BLOcnOBA 

BL0COO57 

8L0C^0BQ 

8L0C0059 

blocohap 
3tOC nn 6 l 

BL0C nn <>2 

BLOC nn6 3 

B10C0V6H 

BL0C0065 

SLOCOn66 

BL0CHPA7 



00131 

680 

data 

00133 

69* 

data 

00135 

70 ♦ 

data 

00137 

71 • 

data 

001*11 

72 • 

DATA 

00113 

73* 

OaT A 

001 16 

79* 

Data 

00117 

75 * 

D a T A 

00 151 

7 6 9 

DATA 

00153 

77o 

DATA 

00155 

7> 8 0 

data 

00157 

79* 

data 

00161 

80* 

data 

00163 

81 0 

data 

00165 

8 2 0 

Data 

00167 

8 3 0 

data 

00171 

84* 

data 

00173 

as* 

data 

00 1 75 

86* 

data 

. 00177 

87* 

data 

00201 

88 * 

data 

00203 

8 9 0 

data 

00205 

90* 

data 

00207 

91* 

DATA 

002U 

92 0 

DATA 

— -00213 

- 9 3 * 

DATA 

00215 

94o 

DATA 

-- 00217 

95* 

data 

CO 00221 

96c 

DATA 

^ 00223 

9 7 0 

data 

00225 

98* 

data 

-00227.. 

99* 

.DATA 

00231 

too* 

DATA 

00233 

101 0 

data 

00235 

1 0 2 0 

DATA 

00237 

103* 

DATA 

0021 1 

104o 

DATA 

00213 

1 05 0 

DATA 

00215 

1 06* 

data 

00253 

1 07® 

OATA 

00261 

108* 

DATA 

00267 

109* 

DATA 

00275 

1 10* 

DATA 

.00303 


END 


OELT/*OCi/ BL0C00A8 

DtAL/20«0*P/ BLOC On 69 

FRL/2G»0*0/ BLOCDD7Q 

6/0*0/ BL0C0071 

GC/ 32 * 17 * 9 / BL0COO72 

IPLOT/O/ BLOCOn73 

NOOEL/20*H./ BLOC 007^ 

NPjPL/O/ BL0C0075 

NP LINE/ 20 *00/ BLOC 0 07 6 

PL/ 2000 *0*0/ BL0COH77 

PTEMP/2000oP*n/ BL0C0078 

RH0L/6«0*O/ 8L0COO79 

S! NALP/20*0*0/ BLOC0080 

THE! A/20*>0 1 0/ BLOCOOSl 

WDOTL/2000»0 >n/ 0LOCnnA2 

WTEMP/2000O0* 0^ BLOC0083 

Z/2000»CU0/ ^ BLOC0084 

MW2/* 19 1Q9966EI t « 2 1 066749E 1 t - a H 40429 1 3E"2 i -♦ 606 4 6 6E-2 i 2*0 * 0/ 8L0C008S 
TCr/.H^S^QB**^, * 21 022635E4, 24057S9SE3 , *8 1889 i 2SEl f 29 0*0/ BL0COO86 

CS2/.7017H506EHM H792099E9 # -t3009|7E3t «20546873E2|2o0*0/ BL0C0HS7 

IS2/*3*»B339C’7E3 t *756708 l 9E2i-* |7l2|626E2i * I 1673U2E1 ,2*0.0/ BL 0 COO 88 

CEF1/5*2,0*0/ BLOCOOBr 

CEF2/-8.6,0,0/ BLOC 0090. 

CP2/©25?1 7475£ | ,-,74 {77 \ 82E0, 0 1 2 0 49 806 E 0 , - * 8 2 4 7 6 0 *9 2E - 2 , 2 * 0 e 0/ B L 0 C 00 9 1 
pWO/, i 2 503708£f4,0 # O/ BL0C0092^ 

PU 1 / *24 35*11 74EZ, 0*0/ .Bi.QC0Q9a 

pW?/-*50£5742?El ,0*0/ BL0C0094 

P0W0/*29375r07E6i0*0/ BL0C0O95 

ROW 1 / *2! 9715 1 3E5 >0*0/ BLOC 00 9 6 1 

P0W2/*50103pME3,0eQ/ BL0C0 09 7 

P0W3/*78 168Q31E1 ,0*0/ SL0COO98 

TIHE/QtO/ _ ,010X305-7 

TTMEF/0*0/ 8L0CO 1 00 J 

TI MPUL/8*0„0/ - BL0CO10! 

NAMTHP/ 6 HTlMPLt , 6 rT 1 MPL2 , 6 hT I MPL3 t 6 HT I MPt_4 , 6 HT I MPLS , 6 HT I MPL6/BL0C0 1 0 2 
DELTF/DoQOOl/ BLOC0103 

FACTOR/1 *2/ BL0C0104 

TIHEND/O 0 5 / . - _SLOCQH> b , 

AREA/1 6«D.0/, a Re:AC/Q o 0.0/*ATD/0*O/,AT0N0Z/2*0*0/,CC/8 1 !, O.0/ BLocOlOA 

CCC/B <) 0*0/»CMAN/l6*0*0/ f CP/2on.0/ ? CPl/0*0/tC5TAR/8«0«0/ BLOCOI 07 

CS 1 / 0*0 / |CV / 1 6°OcO/»CVEL/2<50*0 / tOl AT/ 2 ^ 0,0 / *DPMAN/ I 6 «n# 0 / BL 0 COIO 8 

0 PT 0 / 2 o 0 , 0 / ,DRPMT/ 2 »a* 0 /tDTO/ 2 * 0 © 0 /,D’V/ 6 *n* 0 / t DV/FUEL/ 8 « 0 * 0 / BLOCOIO? 


0W0X/8«>0.0/ t ETAT/2*0.0/*GAM/2*Q*0/9GR/2on ft 0/eICKAM/16*0/ 


8L0C0! 10 
BLQCO! 1 1 


Coefficients derived from least-squares fits of 
cubic polynomials to curves presented in Figures 
24 and 25 Reference 1 for .5<MR^6. 

Least-squares fit of quadratic to Tigure 27/ ’ ~ “ 
Reference 1. ? 

See above for MW2, TC2, 

Least-squares fit of quadratic to flowrate curve 
in Figure 26 , Reference 1, 


Least-squares fit of cubic to power curve in 
Figure 26, Reference 1, 


ENO OF UN1VAC 1100 FORTRAN V COMPILATION* 
8L0CKD SYMBOLIC 

BLOC* D CODE RELOCATABLE 


0 oDiAGNOSTICo MESSAGEtS) 


31 

AUG 

71 

12:31:5? 

0 

01154032 

J4 

122 

IoeleTeoi 

31 

AUG 

71 

1 2 J 3*1 S 59 

! 

01161306 

24 

1 

10ELETED) 





0 

01161336 

14 

976 




01 SEP 7\ 


0:58! 49.712 


5.4 Subroutines 


5.4.1 ACC 

UN1VAC Uua FORTRAN V LEVEL 2206 


THIS COMPILATION WAS DONE ON 01 SEP 71 AT OOiSQSBO 


SUBROUTINE ACC ENTRY POINT 000637 

STORAGE USED ( BLOCK * NAME, LENGTH) 


OUOl 

♦ CODE 

000646 

oouo 

♦ DATA 

000032 

0002 

♦BLANK 

OOOOOO 

0003 

ACCCOM 

000030 

0004 

ALLCOM 

023675 

U 005 

FLAGS 

000006 

0006 

VALUES 

000010 


external references (block, name) 

0007 VAL 

0010 write 

00 1 1 SORT 
0012 NERR35 


storage assignment for variables (BLOCK, TYPE, 

0001 00010S 10L 0001 000513 11QL 

0001 000213 30L 0001 000232 5QL 

0006 R 000001 ARHO 0004 R QDD024 CL 

0003 R 000004 C4 0003 R 000005 C&S 

0QU3 R 000000 DPACC 0003 R QOOOOl DOM 

0006 R 000000 GRHO 0000 1 000003 1 

00 U 3 1 OOOQU IDUM 0003 I 0000 12 IDUM1 

0003 l 000012 ll 0005 I 000005 IPLOT 

0005 l 000004 ITURBN 0000 1 000002 IS 

0003 j 000017 N ACC 0003 I 00002D NNNN 

0003 R 000021 P ACC 0004 R 000174 PL 

0004 R 004 H 4 PTEMP 0004 R 010Q34 RHOL 

0003 R 000024 VOL ACC 0004 R 010115 WDOTL 

00U3 R 000026 XKACC 0004 R 017755 Z 


RELATIVE LOCATION, NAME) 

0001 000004 114G 0001 000536 130L 

0001 000315 7UL 0001 000402 90L 

0003 R 000001 Cl 0003 R 000002 C2 

0003 R 000006 C66 0004 R D0005D DELT 

0004 R 000075 PRL 0004 R 000121 G 

0003 1 000007 1ACC 0005 1 ODQOOO IaCCPR 

0003 r 000013 IDUM2 0003 I 000014 JDUM3 

0005 I 000002 IPRINT 0003 I 000013 IPROP 

0003 i oaooii J 0003 i 000014 uj 

0004 I 000123 NODEL 0004 I 000147 NPIPL 

0003 R 000023 PPPP 00D6 R 000004 PR 

0004 R 010044 SlNALP 0004 R 010070 THETA 

0006 R 00 0 00 2 WR 0006 R 0C0005 U/S 

0006 R 000003 ZR 0006 R 000006 ZS 


0001 D00621 1 50L 

0004 R OOOO0O-AREAL 

0003 R 000003 C3 

0004 R 000051 DIAL 

0004 R 000122 GC 

0005 I 000001 ICMAMP 

0003 1 000015 IENACC 

0005 I 000003 I REGPR 
0000 I 000000 KOUNT 

0004 1 000)50 NPLINE 

0006 R 000007 PS 
0004 R 010)14 TIME 
0004 R 014035 VITEMP 


00101 1© SUBROUTINE ACC ACC o0 °t 

D0JD3 2 * DIMENSION K0UNT(2) ACC 

00104 3o COMMON/ ACCCOM/DP AC C,DUM(6) , I ACC ( 2 ) , I DUM , I DUM 1 , 1 DUM2 , 1 0UM3 , ACC 0003 

00104 4« UENACCI2) , NACC , NNNN .PACC (2) , PPPP , VOL ACC < 2 ) ,XKACC(2) ACC 0004 

00105 5* COMMON/ ALLCOM/ AREAL (20) ,CL(20>.DELTtDIAL<20)iFRL(20)»G,GC, ACC 0005 

00)05 6 * 1N0DEL t 20 ) , NP I PL > NPL I NE ( 20 ) j PL ( 20 9 l 00 ) , PTEMP ( 20 i 1 00 > , RHOL ( 8 ) » ACC 0006 

00105 70 2S INALP (20 > , THETA ( 20) iT I ME tVJDOTL (20, 100) jWTEMP(ZO, 100) ,Z(20, lOQ) ACC 0007 

00)06 8 * COMMON/FLAGS/IACCPR*ICHAMPoSpRINTi I REGPR, ITURBN, IPLOT ACC OOOQ 

00 J 07 9» C0MM0N/VALUES/6RH0 , ARHO,WR tZRfPR , WS,ZS ,PS ACC 000? 

00110 10* EQUIVALENCE <OUM( 1 1 ,C 1 ), (DUM (2 ) ,C2) , <DUM(3) ,C3 ) p (DUM (4 ) ,C4) , ACC 0010 



ACC i ACC 


DATE 010971 P AGE 


00 J 10 

ll » 


1 <DUM(51,CSS>. ( D U M < 6 ) ,C66).UDUM»J)»U0UMl*m. 

ACC 

0011 

oouo 

12* 


2 ( 1 0 W«2> IPROPJ * < IoO«3 » JJ> 

AC C 

0012 

00111 

13® 


DATA KOUN 1/2*0/ 

ACC 

0013 

OtllU 

1*}* 


DO 150 I ” 1 • 9 ACC 

ACC 

0019 

0011 6 

15* 


0*1 

ACC 

0015 

00117 

16® 


KOUNT$l!“K°UNTtj ) ♦ J 

ACC 

0016 

00120 

17* 


l 1 = I ACC 1 1 > 

ACC 

0017 

00121 

18® 


]PROP”NPLiN e (j j> 

ACC 

0010 

00122 

19® 


IF 1IeNA C c(I>»eQ»2> go TO 70 

ACC 

001? 

00129 

20® 


JJnJ 

ACC 

002o 

00 12 5 

21* 


CALL VALUI ,1 ,1PR0P*2> 

ACC 

0°2l 

00126 

22* 


Cl*-WS-AR£AL( lli/CH 1 1 J » (G°RHCL < 1PR0P) »i(I 1 , 1 )-GC»PS»l 99.0-2® 

ACC 

0022 

00126 

23* 


IRHOLUPROP 1 »ZSJ-G/Cl.( I 1 )»WS*S1NALPU 1 1 ®DELT*FRLU 1 ) oflSoABS ( «5 > ® 

ACC 

0023 

00126 

2*** 


20ELT®2 *D/D UL< I J 1 /RHOLt 1 PROP > / AREAL < 1 1) « 1 2 . 0 

ACC 

0029 

00127 

25* 


C2«>-AREAL 111) °GCo 1 99 . O/CL 111) 

ACC 

0025 

00130 

26® 


NNNN-0 

ACC 

0026 

□ 0131 

27 0 

10 

CONTINUE 

ACC 

002? 

00132 

23* 


NNNN=NNNN*t 

ACC 

002a 

00133 

2?* 


DPACC a "CL 1 I I )«*2/Gc/199.0/V0LACC( 1 ) *WTENP{ JJ • 1 ) 

ACC 

0027 

00139 

30* 


IFINNNN.EQ. 1 >PPPP«PACC( 1 ) *DElToDPACC 

ACC 

0030 

00136 

31* 


IFlNNNN.eQ.2)PPPP=(PPPP*PACCU)6DELT«DPACC)/2.0 

ACC 

003 J 

00110 

32* 


C5S«XKACC(I J o®2®2. 0<>GC®RHOL < 1PR0P) * 199. 0/C2 

ACC 

0032 

00111 

33* 


C66«XKACC 11) ®o2«2.0»SC«RH0Lt 1PR0P) 0199* 0»(PPPP®C1 /C2) 

ACC 

0033 

00112 

3 H* 


IF tC66,LE.0.0) GO TO 30 

ACC 

0039 

00191 

35® 


RTEMP ( I I * l >®C55/2*0®S8RT 1 CS5®C55M ♦ 0*C66 > / 2 . 0 

ACC 

0035 

00195 

36* 


60 TO 50 

ACC 

0036 

00196 

37* 

30 

CONTINUE 

ACC 

0037 

00197 

33* 


WTtMPdl . 1 >®*-CS5/Z,0~SC!RT<CSS«c55-9.0°c66)/2,o 

ACC 

003B 

00150 

39 * 

50 

CONTINUE 

ACC 

0039 

00151 

40o 


1 F ( NNNN . E8 « 1 * AND, I ACCPR . NE.O . AND . HOD ( KOUNT t 1 ) , I ACCPR) «£Q* 0 ) CALL 

ACC 

0090 

00151 

HI * 


URITEl 10) 

ACC 

0091 

00153 

H2* 


IF (NNNN.EQ.I) GO TO 10 

ACC 

0092 

00155 

H3® 


PTEMpl 1 l»n«-WTEMP(II *1 1/C2-C1/C2 

ACC 

0093 

00156 

HH ° 


PACC ( 1 ) -=PPPP 

ACC 

009 9 

00157 

H5* . 


IF ( I ACCPR f NE.O. AND, MOD t KOUNT (1) *1 ACCPR) .CQ. 01 CALL wRITEUO) 

ACC 

0095 

00161 

H6® 


GO TO 150 

ACC 

0096 

00162 

H 7* 

70 

CONTINUE 

ACC 

0097 

00163 

na* 


JJbNODEL (II) 

ACC 

0G9 B 

00169 

H 9® 


CALL VAL ( 1 1 t JJ.IPROP * 1 > 

ACC 

0099 

□ 0165 

SO® 


C3»-WR*AREAL( Ill/CLII 1) * ( 6«RH0L t I PROP) «Z (II t J J ) -GC»PR* 1 91. 0-G* 

ACC 

0050 

00165 

51® 


1RH0L( IPROP) »ZR)*G/CL< 1 I) •WR*S INALP U 1>*DELT*FRLU I) oWR® ABS ( WR ) / 

ACC 

0051 

00165 

52* 


22*0/0 IAL< II I *12«0/RH0L ( 1 PROP) /A REAL (II) °OELT 

ACC 

0052 

00166 

53 * 


CM" AREAL (II ) cGC/CL ( I I ) o 199*0 

ACC 

0053 

0Q167 

5H0 


NNNNsO 

ACC 

Q059 

00170 

55* 

?D 

CONTINUE 

ACC 

0055 

00171 

56® 


NNNN«NNNN*1 

ACC 

0056 

00172 

57* 


DPACC»CL< I 1 1 «®2/GC/ 199.0/ VOL ACC ( J 1 oWTEHP ( J I * U J ) 

ACC 

0057 

00173 

5B * 


IF (NNNN.EQ* UPPPP»PACC ( I )+DElT«DPACC 

ACC 

0058 

00 175 

59 * 


1 F ( NNNN *E0*2)PPPP n (PPPP®PACC( I)*OELT®0PACC 1/2*0 

ACC 

0059 

00177 

60* 


C55 = XKACC ( I ) »»2»2.Q«GC»RH0L( I PROP > * 1 9 9 , 0/C 9 

ACC 

0060 

00200 

61* 


C66»XKACC ( I I ®»2®2.Q»GC»RH0l< I PROP 199. 0«(C3/C9<-PPPP) 

ACC 

0061 

00201 

62* 


IF (C66.G7.0.0) GO TO 110 

ACC 

□ 062 

00203 

63* 


WTEMP ( II » JJ)"-C55/2.0+SGRT < C55«C5S“9 « 0«c66) /2« 0 

ACC 

0063 

00209 

64* 


GO TO 130 

ACC 

0069 

0020 5 

65* 

no 

CONTINUE 

ACC 

0065 

00206 

66* 


HTEKPtl I *JU>«C5S/2,0-SQRT(C5SoC55+9.0®C66>/2.0 

ACC 

0066 

00207 

67 • 

130 

CONTINUE 

ACC 

0067 

00210 

6 B * 


IF (NNNN.EQ* 1 .AND. I ACCPR. NE.O. AND* HOD ( KOUNT l I 1 . I ACC PR ) » EQ • 0 ) C ALL 

ACC 

0060 



00210 *,<?* 

00212 70* 

002 14 7 1* 

00215 72° 

00216 73* 

00220 74 * 

00222 7b* 

00223 76* 


ACC » ACC DATE 

1 W R I T £ l i 0 ) 

IF (NNNNtEQtl) GO TO 90 

PTEMPl I I ,JJ)»-wTEMP( I] , J J ) /C4~C 3/c4 

PACC ( I >«PPPP 

IF < 1 ACCPr.NE.O. AND* MOD ( KOUNT C I ) t t ACCPR ) «CQ« 0 ) CALL WRITE U0> 
150 CONTINUE 
RETURN 
END 


010971 

ACC 
ACC 0070 
ACC 0071 
ACC 0072 
ACC 0073 
ACC 0074 
ACC 0075 
ACC 0076 



END OF UNIVAC MOB FORTRAN V COMPILATION* 0 ^DIAGNOSTIC* MESSAGE < 5 ) 


ACC 


SYMBOL t C 

21 

JUL 

71 

is:o8:2q 

0 

01453142 

14 

76 

(DELETED) 

ACC 

CODE 

Relocatable 

21 

JUL 

71 

is:ob;2o 

1 

0 

01455212 

01455256 

36 

14 

I 

47 

l DELETED ) 


13 P HDG BLOCKD,BLOCKO 


v£> 


5.4.2 CHAM 


univac nos Fortran v level 2206 ocia fsoibh 
This compilation w as done on 02 sep 71 a t > 1 : s 2 : oh 


SUBROUTINE CHAN entry point 001701 

STORAGE USED (BLOCK, NAME, LENGTH > 


000 1 

♦CODE 

00171H 

0000 

♦ DATA 

000 t 66 

0002 

“BLANK 

OOOOOO 

0003 

allcok 

023675 

D004 

ALLC5 

ooonsc 

0005 

chambr 

004626 

0006 

FLAGS 

000004 

0007 

0 AT A I 

0000 3 4 

0010 

VALUES 

000010 


external references (block, name) 


001 1 

write 

001 2 

MV/DUS 

0013 

wrois 

001 *4 

N 1 0 2 £ 

0015 

WEXP 55 

00 1 6 

NEXP6S 

0017 

sort 

0020 

NERR3S 


V£> 

U 


STORa 

GE 

ASSIGNMENT for 

variables 

(BLOCK 

1 TYPE, 

RELATIVE 

LOCATION 

, NAME) 









0000 


000035 

1 OF 

0001 


000105 

1 10L 

00 01 


Onp325 

130L 

nooi 


0000T3 

1 4 2G 

000 1 


000 ! 60 

i 70L 

. QQQ 1 


000 144 

l 74G 

OQ01 


000162 

I 9 OL 

0001 


0P02O6 

2 1 UL 

0001 


000226 

230L 

0001 


000270 

236g._ 

0001 


00026 1 

250L 

0001 


000325 

25 2G 

nooi 


000363 

2 6 6 G 

0000 


(100063 

3nr 

OOOJ 


000361 

3 1 Ot 

000 1 


000453 

330L 

000! 


000515 

350L 

P001 


0(70572 

370L 

0001 


DO 076) 

390L 

0001 


000771 

4jO L 

0001 


0010^6 

430L 

ooai 


001042 

450L 

nOOl 


001 101 

470L 

rooi 


001 105 

490L 

0001 


001127 

SlOL 

0001 


001142 

530L 

0001 


O r 1 4 5 2 

590L 

0001 


001463 

610L 

0001 


001661 

6 30L 

0001 


000057 

7nL 

000 1 


00C041 

?0L 

0007 

R 

000032 

A A 3 

0007 

R 

000033 

A A 4 

0004 

R 

oooorjn 

AC 

OOOH 

R 

0000 46 

ACC1 

Q0Q4 

R 

000020 

ACl 

0004 

R 

000040 

AC 2 

0004 

R 

000042 

A C 3 

OOD 4 

R 

000044 

AC 4 

0005 

R 

oogooa 


0005 

R 

000020 

area c 

0003 

R 

OCnnOO 

areal 

0010 

R 

oonooo 

arho 

0005 

R 

000030 

ATD 

000 s 

R 

0 0 0 0 3 1 " 

A7DN0Z 

0007 

R 

000000 

A 1 

0007 

R 

000C01 

B l 

0007 

R 

0 0000 2 

c 

0005 

R 

000033 

cc 

0005 

R 

000043 

ccc 

0005 

R 

0QO053 

CEFi 

0005 

R 

000055 

CEF2 

0003 

R 

OOP 024 

CL 

0005 

R 

000057 

CHAN 

0005 

R 

000077 

C-P 

0005 

R 

oootoi 

CPI 

0005 

R 

C 0 0 1 0 2 

CP2 

0Q05 

R 

oopi in 

C5TAR 

0005 

R 

noo i 20 

csi 

000 s 

R 

000121 

CS2 

0005 

R 

000127 

cv 

0005 

R 

OPP 147 

CVEL 

0007 

R 

OOPOO 3 

c 1 

0007 

R 

000010 

Cl 1 

0007 

R 

000023 

C 2 

000? 

R 

000025 

C3 

00Q7 

R 

0P0C2Z 

CH 

0007 

R 

ooron4 

C6 

0007 

R 

noonp5 

C7 

0007 

R 

000006 

C8 

0007 

R 

OOnno7 

C9 

0007 

R 

orooi i 

DCLP 

0007 

R 

00 n 0 1 2 

OELP 

0003 

R 

oooosn 

PELT 

000 s 

R 

noo 1 5 r 

deltf"' 

0003 

R 

000051 

DIAL 

0005 

R 

OH 0152 

D I AT 

cnos 

R 

00Q154 

DPM AN 

0005 

R 

C 0 0 1 7 4 

DPTO 

0005 

R 

000176 

orpmt 

0005 

R 

OOP 7 OO 

dto 

0005 

R 

0C0?02 

DW 

0005 

R 

00021 0 

DWFUEL 

POOS 

R 

000220 

DWOX 

0005 

R 

000230 

etat 

0003 

R 

000075 

FRL 

0003 

R 

000121 

G 

0005 

R 

000232 

GAM 

0003 

R 

000122 

GC 

0005 

R 

000?34 

gr 

0010 

R 

oonooi 

GRHO 

0005 

I 

000256 

I 

0006 

1 

OOflOOO 

1 ACCPR 

0005 

I 

000236 

ICHAM 

0006 

1 

000001 

IcHaMP 

0005 

I 

000256 

iemg 

0007 

1 

000020 

1 1 

0007 

1 

0000 1 3 

ikoumt 

nOQ4 

I 

000005 

I plot 

0006 

l 

000002 

T p R J W T 

0007 

1 

00"0H 

I PROP 

0005 

r 

000257 

IPUH J 

P005 

r 

0OO261 

I PUHO 

0006 

I 

000003 

JREGPR 

0005 

R 

000263 

ISP 

0000 

1 

nooo20 

ISUBF 

0000 

1 

oooni n 

isimo 

O0P5 

R 

n 0027 3 

IS! 

0005 

R 

000274 

I S 7. 

0006 

I 

000004 

ItORBN 



onoo t eon r 3o is 

OOOS R 0OCM22 KAY.n 
0005 R 00n3S2 KAYS 
0000 t n00c31 K K 
0005 r nons53 MW 
0005 I 000473 NCOEF 
0005 I n0nn75 NPVAIF 
0003 R n0n|74 Pt 
0005 R P02A57 POWO 
0005 r 002*67 pRATC 
0005 R 002477 PTO 
0005 R (102507 R6AS 
0007 R n00o30 S 
0005 R 0026 4 3 TgAS 
0005 R 002564 TmVALF 
0005 R 004470 T T 0 
0005 R 004532 WCHAM 
0005 R 004402 WOX 
0003 R 0 I 4 p 3 5 WTEMP 
0003 R 017755 2 


roo7 i 

A 

■|0n2 J 

JJ 

0005 

m 

Prnq 32 

KAY 1 1 

0005 

R 

0^0362 

KAY6 

nOOO 

I 

onnooo 

kounT 

0005 

R 

pro q 6 3 

MW 1 

00O5 

I 

nroq7q 

NOGTP 

poos 

I 

0"3505 

NPVAUO 

0005 

R 

0p2q25 

PM A 14 

0Q05 

R 

Qn2q6 1 

POW l 

0007 

R 

rroo i 6 

PRAT 1 

noo5 

R 

OP 2 50 1 

p wo 

0003 

R 

ni0p3q 

RHOl 

0003 

R 

P 1 n p H q 

S! NALP 

0003 

R 

0 1 0 P 7 0 

theta 

0005 

R 

0 p 3 5 2 H 

TMVALO 

0Q05 

R 

OPH H 7 2 

u 

noH3 

R 

0 1 n 1 1 5 

WDOTL 

0007 

R 

nppr 3 j 

WP 

0005 

R 

orq £ 2 2 

X I TP 

CO J 0 

R 

rrnr)C3 

Z P 


rorn 

I 

nnnp 3 3 

K 

nnos 

R 

nn^3 7? 

KAY? 

nnns 

R 

OP"372 

K A Y 7 

rnrc 

1 

nnno 3 2 

LL 

0PP5 

R 

On n q 6 H 

MW 2 

0 0 P 3 

I 

Opr 1 73 

model 

P0C5 

R 

OOnS 1 5 

opvalf 

0005 

R 

0n?qq5 

PMR 

P005 

R 

O07H63 

P0W2 

CO l 0 

R 

nc^oc7 

P5 

PROS 

R 

OP?Sn 3 

PW1 

rocs 

R 

0n ? 5l 7 

RPMP 

nnns 

R 

On ? 52R 

TC 

nm?3 

R 

ninl ! h 

TIME 

nnrs 

R 

0 n q H 6 q 

TORP 

ones 

R 

0 P 4 H 7 H 

V M ft N 

nors 

R 

nnq5<42 

ft'FUCL 

fin l 0 

R 

occoc? 

WR 

PPOS 

P 

Or q 6 2 H 

XLTP 

ml C 

R 

OGC 0 ° 6 

Z 5 


r005 

R 

onoinm 

m 

rnnS 

R 

00033^ 

W < 3 

nnpS 

R 

000 Hp2 

\ AYP 

rno5 

R 

ono q q 2 

MR 

npo7 

I 

nooni 5 

N 

nnO 3 

I 

n001 H7 

NP I PL 

POOS 

R 

no 1 q55 

opvalp 

0005 

R 

007H53 

powp 

nnpq 

R 

n Q 2 q 6 5 

P0W3 

0007 

R 

nnoni 7 

PSON 

0005 

» 

n025p5 

P«? 

ones 

R 

00 2 S 2 n 

RPMpn 

roos 

R 

nn 25 3H 

TCI 

poos 

R 

002553 

TIMFF 

C005 

R 

00 H q 6 6 

TORT 

onns 

R 

hohsih 

VOLC 

r cos 

R 

00 H 5 5 2 

W 1 M J 

0010 

R 

000005 

VS 

P007 

R 

000 n ?6 

X i 


0005 

R 

00031 2 

kayi 

onas 

R 

0003H? 

KaYH 

noo5 

R 

npo*U 2 

KA Y9 

0005 

R 

00DH52 

MRl 

0005 

1 

OOOH72 

N C HaM 

0003 

I 

nnniso 

MpLINE 

0 DO 5 

R 

00 2 H 1 5 

PcHaM 

0005 

R 

002H55 

PO«T 

0010 

R 

onoonn 

PR 

00P3 

R 

00 H 1 1 H 

P TEMP 

0007 

R 

O0OO2R 

R 

0005 

R 

002522 

RpMT 

0005 

R 

002535 

T C 2 

0005 

R 

0O255H 

TlMpUL 

ooon 

R 

00003 H 

TrEJS 

0005 

R 

00H5ZH 

w 

0005 

R 

Onq 57 2 

WNOZ 

0005 

R 

00H6 1 2 

WTONOZ 

0007 

R 

000027 

X? 


ooioi 

00 I 03 
00 I 03 

00104 

00105 
00105 

00105 

00106 
00 ) 07 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00110 

00 1 1 I 

001 1 l 
00112 
00113 
0011 5 
00116 
00120 
00122 
00122 
00123 
00 1 23 
00123 


1 o 
2a 
3a 
Ha 
5a 
6a 
7a 
8a 
9a 
10o 
i 1 a 
12a 

13# 

I H a 
15a 
16a 
17a 
18a 

1 9a 
20a 

2 I a 
22a 
23a 
2 H o 
25a 
26a 

27a 
28 c 

2 9# 
30a 
31a 

32c 

33a 

3 Ho 


3n 


ILP t aTHETA r 2n I f T IME #W00TL (2n 1 10Q) tWTEHP ( 20# 100) |Z |2n» 100) 
ION/At,LCS/AC«0,2>»<'Ct(R|2)»AC2(2),AC3(2>,AC4(2» i ACCM21 
*0N/CHAMBR/AFFA(8,2> , A RE A C < 0 1 , A T D , ATD NOZ < 2 > , C C ( 8 ) , C C C I 8 ) , 

I < 2) ,CEF2 < 2) *CMAN < B ,2 > ,CP< 2) ,CP 1 ,CP2 I 6 1 ,CST AP <81 ,CS l ,CS2 ( 6) , 

2CV18.2) ,CVEL<2) ,nELTF,OlAT (2) ,DPMAN(8,2) ,nPT012) .DRPMTf 2) ,070(2) , 

3CW ( 6 ) ,d«FUEL (8) ,OWoX(B),ETAT(2),GAM(2),GR(2),lCHAM(8,2),IFNG, ^ X I i 

41PUM1 (2) ,1PUH0(2> ,tSP(fl>,ISl,IS2(6),KAYO) , KAY 1(81 ,KAYZ(8) , CHamOO 3 

5KAY3(8) ,KAV4(8) ,KAy5(8) ,KAY6(8> ,KAY7(R) ,KAY8(8) ,KAY9(8) ,KAY)0(8) , CHAMOO 4 
6K AY 1 1 ( 8) .MR < 8 1 »MP 1 ,MY(( 8 > ,MW1 ,MW? 1 6 1 ,NcMAM *WCOEF iNGGTP .NPVALF ( 8) , CHAMOO IS 

7NPVAL0(8) ,0PVALF(8,60) , 0 P V ALO ( 8 , 60 1 , PC H AM < 8 > , PM AN t 8 , 2 ) , PM R ( 6 > , CHAMflO 1 6 

8P0WP (2 1 , D OWT (2) .POY'O ( 2 ) ,P0W1 ( 2 ) ,POWZ t 2 1 , P0'*3 t 2 > , PR 4 Tc ( 8 ) , p TO t 2 > . cHa’10017 

9PWr 12) ,PY.H2> ,PW2<2) ,RGAS(8I ,RPMP , RPHPO ( 2 1 ,RPMT12),TC(8),TC1, 
«TC2(61.TGAS(8 ),TIMFF,TiMPUL! 8) , TMVALF (8,60) ,TMVALO(8,6O>,T0RP!2) 
ATORT(2),TTO(2),Ot2),V M AN(0«2),VOLC(6),tt(6),WCHAM(8) , WFUEL ( 8 ) , 

B** I N J 1 8 ,2 ) ,WN0Z(8) , WOX ( 8 1 , W TONOZ ( 8 ! , X I T P ( 2 1 , XlTO < 2) 

COMMON/FLAGS/ 1ACCPR, I CHAMP, 1PRI NT, IREGPR.ITURBN.JPLOT 


EOUIVALFNCE (1,IFN G ) 

DATA I5UBF/80!/ CHAM0029 

DATA ISUBO/861/ , „ Zu 

F 0 RMAT(* 1 T 1 HE POINT OUTSIDE VALVE OPENING TABLE, OXIDIZER SIDE, COCHAMD03n 
1MBUST0 R*,I 2 ,* Tl-ME PO 1 N T * , F 1 4 . 8 / « LAST T 1 KF POINT IN T AE L E * , E I 4 „ 8 ) C H A MOO 3 I 

■ format i * i t t me point outsipf valve opening taple, fuel side, coH0UscH A nnp32 

1 T OR * , r 2 , • TIME POINT*, EI4.8 /» LAST TImF POINT [N T A BLE * , E 1 4 . 8 ) CH A MO033 

ADO ONE TO PRINT COUNTER CHamC 03*1 



0012** 

35 o 



KOUNT ( I >*KOUNT(I )*1 

CHAM003S 

001 2*» 

36* 

C 


SET UP VALUES FOR LATEST VALUES PROM INTEGRATION SCHEME 

CHAH0036 

00125 

37® 



wox ( n «w{ n 

CHAM0Q37 

0012* 

35 « 



WFUEL(I)3W(2> 

CHAMC1038 

00127 

3 9* 



PM AN < l , J >=W(3) 

CHAM0039 

00130 

40o 



PM AN ( I 

chamooiq 

00131 

HX* 



W C H A M < n»wt 1 |+W(2) 

chahooii 

00131 

q2<, 

c 


calculate mixture ratio for i-th combustor 

c**amooh2 

00132 

H3 o 



MRf D«Wfl 

CH/IM0013 

00132 


c 


CALCULATE CV EVERY OTHER TIME THROUGH 

chakooii 

00133 




IF (MOD(KOUNT(I) *2)oEQ«0) GO TO 230 

CHAM0015 

00133 

^6® 

c 


GET SUBSCRIPT OF STARTING PLACE IN TABLE 

CHAM00H6 

00135 

97o 



JJMSUBO ( I ) 

CHAM0017 

00135 

qa® 

c 


SET NUMBER OF POINTS IN TABLE 

CHaM00*18 

0013* 




KKsNPvAlOf I > 

CHaHOOI? 

0013* 

50^ 

c 


DO LOOP TO FIND PLACE IN TABLE 

chamooso 

0013* 

5! * 

c 


check for being on low side of table 

CMAH0051 

00137 

52o 



IF (TlMEFfttr**TMVACo< I . I M GO TO 70 

CHAH0052 

001 H 1 

S3* 



DO 50 LL ** JU i KK 

CHAMOnS 3 

001*1*1 

5Ha 



IF (TlMEF«LE*TKVALO( 1 bLL) ) GO TO MO 

CHftMDOSI 

001*1* 

S5« 


5n 

CONTINUE 

CHAM00S5 

00(50 

5 Ac 



GO TO 90 

CHAM005* 

00150 

57ft 

c 


WRITE WARNING AND SeT VALUE FOR CVIItH 

CHAM0057 

00151 

58o 


7 0 

CONTINUE 

CHAM0050 

00152 

S9o 



KK*I 

CHAH00S9 

■001 53 

60* 


‘90 

CONTINUE 

CHAH0CI6D 

0015** 

61® 



WRITE (6. 10)1 ,T!MFF,TMVALOt I »KK ) 

CHAH006 1 

0016 1 

62ft 



C V { I ft I )*OPVALOU ,KK> 

CHAM0062 

001*2 

62o 



GO TO 130 

CHAM0063 

00163 

64o 


1 in 

CONTINUE 

CHAH0061 

00163 

65ft 

c 


SAVE POrNr IN TABLE FOR THIS COMBUS70R 

CHAM0065 

_ 0016H 

6 6 • 



ISU80U ) wLL. 

CHAH0066 

vo 00161 

, 6 7 o 

c 


CALCULATE VaLVE OPENING* OX SIDE* 

CHAH0067 

00165 

68 o 



C V ( I ft lUCOPVALOI I *LD-QPVALOUiLI-U > « < T I MEF-TMV ALO (I t LL- l U / 

CHAM0068 

00165 

6?9 ' 



3 fTMVALOf I > LL > -TMyAtO ( I ,LL-1 ) )+OPVALO( I *LL~! ) 

CHAM006? 

00165 

70o 

c 


DO SAME PROCESS FOR FUEL SIDE 

CHAM0070 

00166 

71® 


! 3 Q 

continue 

CH A M007 1 

0016* 

72o 

c 


GET SUBSCRIPT OF STARTING place in T4BLE 

CHAM0072 

00167 

7 3o 



JJ® 1SUBFC I > 

CHAH0073 

00167 

7<W 

c 


SET NUMBER OF POINTS IN TABLE 

CHAHO071 

00170 

75 1 



kk^npvalf ( I ) 

CHAM0075 

0017° 

7^o 

c 


CHECK FOR BEING ON LOW SIDE OF TABLE 

C H AK007 6 

00171 

77* 



IF (TtMEFftLToTMVALFU d 1 M GO TO 170 

CHAH0077 

00171 

7 8 o 

c 


oo LOOP To FIND PLACE IN TABLE 

CHAM0078 

00173 

79« 



00 150 LL»UJ«KK 

CHAM0079 

00176 

fiOo 



IF <TIMEF*Le*TMVaLf1 I »Lt) ) GO TO 210 

CHAM0080 

00200 

81o 


15 n 

CONTINUE 

CHAMC108 1 

00202 

8 2 o 



GO TO 190 

CHAM0082 

00203 

83a 


t 79 

CONTINUE 

CHAM0083 

00201 

8<H 



KK* t 

CHAM0081 

00205 

85ft 


1 9o 

CONTINUE 

CHAM0085 

00205 

86® 

c 


WRITE WARNING AND SET VALUE FOR CV(I,2) 

CHAM0006 

0020* 

87ft 



WRITE (6,30)1 ,TIMEF,TMvALF(I,KK) 

CHAN0OS7 

002)3 

8 8a 



CV( 1*2) aOPVALF ( I iKK) 

CHAM0088 

00211 

89 ® 



GO TO 230 

C H AMOI58 9 

002 15 

90d 


210 

CONTINUE 

CHAM0090 

00215 

9U 

c 


save starting point in table for this combustor 

CHAM009 1 

0021* 

92ft 



15UBF ( 1 ) «LL 

CHAMD092 



002 1 6 

9 3 « 

c 


cal^^te valve opening, fuel side 




CHnMW 

00217 

94* 



CVU ,2>«<0PV^B ,Lt-)-OPVALF(t f LL-l ) I * (T INEF- 

T M V A LF ( I , 

LL-| ) >/ 


002 $7 

95* 



HTMVALFC 1 .LD^TOVALFl I t LL-!J UOPVaLFCT tLL-1 ) 





00220 

? 6 p 


23o 

CONTINUE 




CHAM0096 

00220 

97* 

c 


CHECK FOP BEING IN LIMITS OF MIXTURE 

RATIO CURVE 

CH a M 00 97 

0022 t 

93* 



IF ( MR ( I 1.GT.MR1 ) qO To 250 




CH A M0098 

00223 

9 9 o 



MW< J ) aMWI 




C H aM0H99 

0022*1 

100* 



TC< l)»Tci 




chamojoq 

00225 

I 01 o 



ISP ( n »TS ! 




CHAMHlOl 

0022* 

I02o 



csr A R< J ,„csi 




CHAM01O2 

00227 

103* 



s sp ( n sfsi 




CHftMO 1 03 

00230 

104* 



IF<I.LE*NG€TPICPM1-CP| 




CHAMO104 

00232 

105* 



GO TO 310 




CHAM01D5 

00233 

106* 


250 

CONTINUE 




CH AMO 1 06 

00231 

1 0 7 o 



PNR<1)“1*0 




CHAM0J07 

00235 

1 0S& 



DO 270 K*2 * NCOEF 




CHaMO 1 OQ 

00210 

109* 



PMR (K ) » MR [ ) 




C H A M 0 ! 09 

00211 

! 10* 


270 

CONTINUE 




chamoi in 

00213 

lit* 



MW ( I ) « 0 , 0 

/ 



CHAMOI 1 I 

002^1 

1 12* 



TC t I ) cO i 0 




CH ft MO 1 12 

00215 

1 13* 



I SP < I )*0»0 




CHaMOJ 13 

00216 

1 14* 



CSTAR ( 1) *0*0 




CHaMO! 14 

00217 

115* 



IF < 1 * LE t NGGTP > CP 1 n ®0-0 




chamoi 15 

00251 

116* 



00 290 K*1 8 NCOEF 




CHAMOJ 16 

00251 

1 17* 



MW< l ) mMW ( I ) +MW2 (K ) *P MR fK 1 




CHAMOI 17 

00255 

i ia* 



TC( 1 ) u TC I I )+TC2(K)9PMR(K) 




CHAMOI 1 3 

00256 

1 19* 



ISPfl)«lSPU > + 1 S 2 (K > *PMR ( K ) 




CHAMOI 19 

00257 

120* 



CSTARU )«CSTAR(! ) +CS2 ( K ) ® P M R < K ) 




CHAM0120 

00260 

121 * 



IF C ULE*HG6TP)CP C t )-CPm *CP2 <K ) *PMR<K> 




CH AMO 1 2 1 

00262 

122* 


29n 

CONTINUE 




CHAMOI 22 

00261 

123* 


310 

CONTI NUE 




CHAMOI 23 

.0026*1 

124* 

c 


go through loop twice* first is ox side 

, SECOND IS fuel 

C H A M 0 1 2 4 

00265 

125* 



DO 550 N° 1 « 2 




CHAM0125 

00270 

1 26* 



IKOUNT-O 




CH A HO!26 

0027 1 

127* 



1 I a ICHAM < I »N 1 




CH AMO 1 27 

00272 

123* 



JJ°NODEU 1 1 1 




CHAMOI 20' 

00273 

129* 



IPR0P = NPLINEU I ) 




CHAMOI 29 

0Q271 

130* 



C n A C ( I ,N1 




CHAMOI 30 

00275 

131* 



C I ® AC 1 (I 1 H) 




CHaMO ! 3 | 

00275 

132* 

c 


chamber pressure 




CHAM0132 

00276 

133* 



PCHAM ( 1 laWCHAHt I)*1515,0»TC(I) /VOLC (I) * 1 2,p/M<V( I ) 


CH AMO 133 

00277 

134* 



C6«CCCtIPR0P)*AREAII,NH>CVtI,M) 




CHAM0134 

00300 

135* 



Cl 1«PcHAH( ! 1/PHANU ,N) 




CHamO l 35 

00300 

136* 

c 


CALCULATE A PRESSURE ASSUMING CRITICAL 

FLOW 


CHAM0136 

00301 

l 37* 



PSON--C/ (Cl + CV U ,N) *AREA ( 1 .N > #CC ( I PROP J ) 




CHAMP137 

00301 

138* 

c 


calculate Ratio of hanifold pressure 

TO 

SON I C 

PRESSURE 

CHAMO 1 38 

00302 

1 39* 



PRATl =PMAN ( I ,H) /PSoN 




CHAMO 139 

00303 

140* 



IF U.LE.NGGTPl GO TO 330 




C H A MO 1 4 D 

00303 

MU 

c 


calculate nozzle flowratf 




CHAMO 141 

0D3Q5 

M2* 



W N 0 Z ( I )»PCHAH(1 )® Are AC ( I )«GC/C5TAR( I ) 




CHAM0142 

00306 

143* 



GO TO 350 




CHAMOI 43 

00307 

1 4 4 * 


330 

CONTINUE 




CHAM0144 

00307 

145* 

c 


CALCULATE TURBINE nozzle flowrate 




C H AM 0 I 45 

00310 

J 4 6 e 



gam II )<*CP« 1 l/CCP u ) -1 .98 5 2/MTM 1 ) ) 




CHAM0146 

0031) 

l 4 7 * 



WNOZ ( I ) a ARE AC ( 1 ) *PCHAM[ I ) eSQRT I MW U ) / 1 515 , n/TC U 1 ®GC«GAM(I ) ♦ ( 2 . 0/ ( C H AMO 1 17 

003 1 1 

148* 



1GAM{|J + I.0)>»»1 (GAM (IHl.OJ/IGAHID-I.O))) 




CHAHO J 49 

00312 

1 49o 


350 

CONTINUE 




CHAMOI 4? 

00312 

J 50* 

c 


CHECK TO SEE JF THE ASSUMPTION OF SONIC 

FLOW 

WAS CORRECT 

CHAM0I50 



00313 

tSlo 



003 1 3 

15 2* 

C 


00313 

153* 

C 


003(5 

15 4* ' 



00316 

1 55 o 



00317 

1 56 * 



00320 

T 5 7 e 


370 

0032 i 

158* 



00322 

I 59o 



00323 

)60r 


* 

00323 




003 2*1 

162<t 



oosz*) 




00325 

1 64<f 



00326 




00330 

1666 



0033( 

1 67 F 



00333 

1 68tf 



P03J 1 ! 

1 6 9 o 


39n 

00335 

1 70 ft 



0030 6 

173* 



00337 

17 2* 


410 

00380 

1706 



0038 1 

174* 



003^2 

1 76 o 


430 


176V 



C0385 

1776 



0038<7 

!7«“o 



00 3 S 0 

179V 


* ^ 

0035 1 

I 80V 


45p 

00352 

1 81 o 



00352 

- 18!2a 



00 3 5 3 

183* 



0035^ 

lQ4fl 


470 

00355 

1 &5V 



0035* 

1 86b 


*490 

00357 

1 87 o 



0036 1 

188* 



00362 

J89* 



00363 

1 90o 


510 

0036** 

1 9 1 o 



00365 

192o 


S30 

00366 

1 93o 



00367 

194a 



00370 

1 95 o 



00371 

196» 



00372 

I97» 



00373 

1 98 o 



00375 

1 99* 


550 

0037& 

20 Q a 

C 


00377 

201 o 



00800 

202© 



00802 

203© 



00803 

204© 



00808 

*01 agnostic* 

0080H 

205© 



00806 

206© 



008 10 

207© 




IF (PRAT! ♦LE.PRATCf IPROP) ) <30 TO 4tP 

ASSUMPTION WAS INCORRECT* SOLVE FOR PRESSURE AND 
flowrate using newton-raphson iteration 
.C 8-C6*^QRT < K A Y I P f I pRqP) ) 

Ai»cO°CB°PNAN( I |N>*°KAY?( IPROP) 

01 “C8*C8o?MAN II ,N) ©<>KAYl I ( IPROP) 

CONTINUE"* ' IN * J «• 

IKOUNT^IKOUNT+l 

C^“PhAN ( i *N) /PT^HP ( I I ijj) 

DCL»iii7j2,«:n»C*Cl-2tC*Cl*Cl oPtEMPII I f JJ)4>Al*2,0/KAY5< IPROPjoPTEMP ( I I 
NJ >4 ft <■****?< IPROP) 1-B1/KAY5 l IPROP )*PTEMPf M f JJ|**C-KAY7{ IPROP) ) 
Q7* ra *3g~2io*c*Cl*pTEMp(lI • JJ)^C1*C1^PTEWP(I I » J J > * o 2 + A 1 *PTEMp 
I ill I y4«l».^4 2'0/KAY5< IPROP) )-Bl*PTEMP( ! I i JJ)e*( 1 .O/KAYSdPROPU 
OELKeiCZ^OCLP r. ' ■ 

I^n^^AMRo^EtOoAND.MODl^OUNT ( I ) > , I C H A M P ), , EG) . g ) C A U, WRITE (6) 

PTEMPI U*J>J)=PTEMP( I I ,JJ)-DELP ' 

IF ( A0S (OELP) ♦LE 1 0.aql ) GO TO 3 90 
GQ TO 370* . , 

CONTINUE! i x , ; , , > 

^TEMPUl l iJ^)»-C-CiePTEMP( II »JJ> 

$0\,<TO *130* ^ . t ■ 

CONTINUE * • ' • ' • 

PTEMP I I \ WJ)°PSON 

IfTEHM-I! f JJ)«CCC IPROP I^PTeHPCIXiJJ)* ARE AU # N)*CVU >N) 

CONTINUE 1 ' 

IF£*<PCHAMt I'NGT.PIHNU ,NJ) GO TO *<70 
IF: ( C U V GT vPRATC ( I PROP > 1 GO TO 450 
WIN^»I*»N)»CMANI I „N) *PMaN< I J fi ) o c C (IPROP ) 

GO TO- 490 

CONTINUE 1 «F’*< i *5\i J 

WIN J-n f »W ) “CM A N ( 1 9 N)OPHANCI«N)«CCC(IPROP) *SGRT (KAY 1 0 { I PROP ) * <C II *<* 
\ i , KAY9tlPR0P)~Cl 1 <> * K A Y 6 ( IPROP) ) ) 

tO n TO 490^01' J ^ \ 'i;»r,v* )M 

CONTINUE **f.. 

WiN J ( I »N) “0^0 » 

continue 

IF ( N • E Q • 2 > .GO, T ,0 , 5 1 0 > i * 

DV70X ( i 1*VM^J< I *N)-MR O ) / XMR< l ) ♦ 1 tO) *PNOZ < I ) 

GO TO 530* » v ( ** 

CONTINUE * » I 1 v 

DWFUEU I >»WINJC I t N)-l«o/IHRK I ) ♦ I .0 ) pWNOZ ( I ) 

CONT’I NUE' 

OPHAflC I »N)«12.0®CLI I ! )*®2 /VMaNI I * N ) / GC * t WTE M P ( I I * J J ) - W 1 N J ( I 9 N ) ) 

D W ( 1)pO»OX( I } 

DW(2)*0WFUEL( 1 > 

OW ( 3 ) »OPM AN ( 1 |i ) 

OW(*n«DPMAN( I ,2) 

IF I IcHAMP*NE*0«AND«NOD (KOUNT ( I ) |IcHAMP)*EQ*0)CALL vyr I TE < 7 ) 

continue 

*CA LCUALTE total IMPULSE 
TIMPUL ( I )«T|MPUL C I ) ♦ ISP I I ) *WNOZ ( I )*DELTF 
IF < I *, G T oNGGTP } GO TO 630 
RPMT'l I ) » W ( 5 ) 

PTO (•] ) nW(6) 

JHE,TEST for EQUALITY BETWEEN non-integers MAY not be MEANINGFUL# 
JFtPTOU ) *EQ«0 *P#AnO#Wn 0Z ( I) »GT»0«9)PT0t j )«1*Q°DELTF 
IF(PTO(I ) •LT*9 «C)PtO| l ) * 1 #n*OELTF 
¥f (6 ) *PT0 ( I ) 


CHAM0I51 
C H AMO t 5 2 
C H A ttO 1 53 
CHAM01S4 
C H A MP | ^ 

'CHAHoii* 

CHAM0I57 
0 
* 


mmtt 

ejite 

111 

C/UM,017$ 

C^AHfllf6 

CSf A*0(?? 
CtfAWttoo 
81 

C^A«.9-!9Z 

CMAM.gtB^ 
Cfl A/JO t Ot 

fUA’JSll? 

ftfAijpte? 

ft3 A ns"‘|9 

CH A ^0 J f • 

sMBI!* 

zmvin 

cHAMrtH? 

C4A«9»?8 

«AW?9? 

CljA'jOZOJ 

c ,nw{? x \ 

CttA^W 

CHAMH206 

CHAH0707 


Irf U2 

tl R I 

r 


i 55 E T 5- S ®»T) 2 



ctmt 
.no in 

00913 

ODtn'i 
00* |S 
-O0*M4 - 
009 1 7 

■wrt 

0Q921 

— 0 - 0 * 12 a • 
00*123 
— 00923 
00929 
— 0O4 * S - 


00*12* 

..00*127 . 

00930 
_00*13l 
00*5 32 
-JinajLi. 


•0! AGNOSTI 

Soils. 

20? o 
21 On 
211 , 

-212* 

213* 

-2-i-«t* 

215 . 

216* 

217* 

213* -C 
219* 

—2 2 O* 

221 * 

222 * - 

223* 

229 o .. . 

225* 

— 226* — 


C» 




l ! J A L I T Y eETWEEN NON. INTEGERS MAY NOT BE MEANINGFUL., 
• 0iA.Na,»N0Zni*5T*0*Q.lBPMTtilsO.OL _ 


THE TEST F 
.XElREHTtll 
H t 5 ) «RPKT 1 ! > 

RPMP*RPNT IIJ/GRU ) 

TTEIS«TC(I )*(PTO ( 1 j /PCHAH < l ) )«« ( (GAM ( 1 ) - 1 ,Q)/GAM( 1 ) ) 
CVEL ( 1 )n.SCRT I2»0«CP f t 1« (TC t I ) tITEI S » * 77 0 . 24* GC > 
Um»3.1‘l|5«*oIAT(l )/12*0*RPHTCj)/iO»0 

R*tH 1 IAEvE*'!* — ~ — - ■ 

ETaTjI J.CEF 2U >*RoR*cEFl (I )*R 

POWTl ! I^ETAT! I l®778«26»CPl 2 1 *RNOZ 1 J > * CTC 1 1 l^TTE l St 
TTOIH-TC 1 n * 1 1 .o-etat m *n .o.ttei s/tc him 

. . PUMP ESUATlONS . 

C I * ACC It!) 

_ C2 * MVC2 - A + J . 


00*53* 

— 00*43? - 

00*1*10 

- 00 * 1*11 

00912 

-0090-3— 

; oo *t H e ) 

_ 031*15 
000 0* 
-001*47- 
03950 

ooasJ— 


227* 
220 * — 
229* 

230* 

231 « 


570 


C3»AC3U) 

ClnACItl ) 

X!»1.0/C9">l«0/C2 
X2nc3/C*5-C!/C2 . 

SaRPMP/RPHPDt I ) 
-I£_jLE 02JLLJLL 5Z0jL59OA57ii. 
CONTINUE 

.AA3*PWUtA*5-Xt. 


CHAM02O9 
CHAM0210 
CHAK021 1 
CHAM0212- 
CHAH0213 
-CHAM331-U- 
CKAK0255 
CH AMQ21 4 
CHAK0217 
. CHAM0218 
Crl AM0 2 1 9 

CHjUi022*L 

CHAH0221 
_ CMAM0222, 
CHAM0223 
.-CNAM0222- 
CHAM0225 

champ?;* 


233* 

23*1*. 

235* 

- Z»6« 

237* 


AA9»PH0tt)*5*S«X2 

HP*l-AA3.seRT<AA3*AA3’*9«0«P»(2m*AA9>1-tl2.0oPW2t 1 ) ) 
GO TO 610 
6.90. £OUTl«U&- 


CHAHQ227 

-CHAJ10225. 

CHAM0229 
-CHAM0230- 
CHAMC231 
&11AM02?.? 


*10 


00932 

JGQ3 £3 

239o 

2 f ,0a 

2<n« 
ZTZo . 
2<n* 

2-0_«5a 

CO059 

00053 . 

0005* 

nninc.7 

00960 

2'JS* 

00960 

236$ 

00961 

2H7 9 

00*3*2 . 


OC063 


00*549 

_2SGa. „ 


RpoPSJOt I >*S»S/XI-X2/X1 

CONTINUE 

I I * I PUMO f I ) 

HTEMPtll.llaKP- . 

PTEMPt! t 1 1 )**»Cl/C2.WP/c2 

liaXSUU! 1 1 ) 

j j^nooel ( i i i 

HTEMPtll*J*ll K ffP ... 


CH AM 023 3 
. CHAH0239_ 
CHAM0235 
CHAa0224__ 
CMfi!ia237 


00*545 

„G096* 

03970 

0097 1 

00972 


23 1 * 
232* 
253* 

259* 

253* 


*30 


END OF UNI 
.CHAM 

CHAM CODE 


PTEMPtl J ,UJl»-C3/C9«nTEMP( 1 1 • JJJ/C9 
PORPt IloS**3*pq!»0( I )*S**2*P0W1 (J )*np*s*powzm*wP**2*POW3(i L*«P*® 
7ORTl|J«>P0aTtI)«i0.O/C2.0»3,l t tlS9*RPMTU)> 

-XOn£JLlls£Q3Pill»t0*Q2l2fQ*3tL915?'»r5PMEl-~ 

WTDNOZm-ATDNOZl I ) *PTO tl) *5QRT f MR ! I > /l 595 ,0/TTO 1 1 )»GC*GAH( 1)*{2, 

l/t6AHin9j«#»»**H6AHm*l.OI/(OAHm«UOMI_ 

AT0n3. 10 159/9, OoDTOt 1 )*»2 

OPTO tU*GAHl U *1505. 0/M»<l ) *TTO { t ) /XLTO < | ) / A T D * < WNOZ ( | ) wWTBMQZ t 1 1 
0RPM7tJ)”GC*199»0 a 40#0/2,0/3,19159/X| TP CJ)»!70RT!I) .TORp t 1 ) ) 

0“ <5 1 5QPPMT ! I I „ _ - 

' D»U»=DPTO~m 

IF! 1TVRBN. NE,0* AND. MODt MOUNT tl > , I TURDN| , EO.OJCALL *RlTE<9) 
CONTINUE 

RETURN. _ - _ . — - - 

CNO 

-2-7UTA?H05TTc«"~MESSASET5r 
31 AUG 71 
31 AUG 71 


CNAM0239 

CKAK025Q 

CHAM0211 

3CHAMP212 

CMAMQ293 

_caAMQ2f!0 


0CHAM0295 
CHAM0294 — 
C M A M 0 2 9 7 

) CHAMO203 

CKAM0299 

CHA M0250 

CH AMO 25 1 
CH AK0232 
CKAM0253 
CHAK02S9. 
CHAM02S3 


VAC 1 108 FORf ffAtf V~£<5Hp TUITIONS 
SYMBOLIC 
RELOCATABLE 


I 2 1 35 1 09 0 

12J3SJ09 I 


0151 907 6_ 
015230*0 


19 

*18 


25S 


IDELeTeP) 
"i DELETED) 







5.4.3 CR2XAP 


this compilation was done on 02 sep 

71 aT li:52:0? 

subroutine c r2t ap 

ENTRY POINT 

oco 1 57 

storage USED (BLOCK, 

NAME, LENGTH) 

0001 «CODE 

000176 


0000 °0 AT A 

0001 17 


0002 «BLANK 

000000 



EXTERNAL REFERENCES (BLOCK, NAME) 


00o3 

NREWS 

000*4 

NWDUS 

0005 

NI01S 

0006 

Nl 02S 

0007 

NRDUS 

0010 

nwefs 

ODI 1 

NERR35 


storage assignment for variables (block, ty^e, relative location, name) 


. 0000 

000021 1 OF 

0000 00005*4 1 1 OF 

oool OOOO 1 6 1 1 7G 

000 j 

OOOJ 

OGOOlO 130L 0001 OOOOM 136 q 

0001 000065 185G 

OOOl 

-.0001 

000131 190L - 0000 000023 30F 

OOOO 000027 50F 

OOOO 

OOOO 

I oonoi? I 

oooo i oncooo idata 

OOOO I 000016 IK 

OOOO 

_Ooifl ! 

1 * 

• 

SUBROUTINE CR2TAP t J OpT RH , I NO AT A , 1 

MAGES, INSYS,10SYS) 


00103 

2 o 


o l hens ion i data < i h i 



00 1 ON 

3 o 

10 

FORMAT < 13a6,A2> 



00105 

*4* 

30 

F0RKAT(1S,2H.«,I3A£,A2,1H°> 



00106 

5 o 

50 

FORMAT ( 1 OH 1 CARD COL , I 7 , 7 I 1 0/7H 

NO *o,BUqH 123*4 56 7890), IhO 

00107 

6® 

70 

FORM AT ( 7H NO.»,8tl0Hl23H5678?O) 

, 1H9/IHU 


_001 1 Q . 

7 9 

90 

FORMAT ( 7H N0»« ,8 [ 10H123H567390) 

, 1H«) 


001 I 1 

Qo 

I 10 

FORMAT (3<1H0> 131 (**•) )/IHCt30X,*THE 0 E c K E N D CARD WAS LEFT 

OFF 

001 1 1 

9® 

1 

end OF the Data DEc Kf /3( 1H0,|31( • 

* M ) 1 


00)11 

10o 

Co* 

INITIALIZE CARD COUNTER# 



00 11 2 

11« 


1 K M 



00112 

1 2 o 

C 9 ♦ 

REWIND the ALTERNATE INPUT DATA F 

1 LE « # ♦ 


_001 L3 

13® 


REWIND | NO AT£ 



00113 

1M 0 

Coo 

WRITE Page eject and card column 

INDICATORS, 


00 1 l*f 

1 5 o 

130 

continue 

• 


00 1 is 

1 6 o 


WR I TE « I 05Y5 , 50 1 (I , I » 1 , 8 ) 



00123 

17® 


DO 150 !»lt IMAGES 



00 123 

18® 

Coo 

READ AN INPUT DATA CARD# 



00126 

19® 


READ IINSYS,10»END«170.ERR»!70MIDATA(J),J«!,1H> 


00126 

20® 

C * ° 

write the IMAGE on the alternate 

data INPUT FILE. 


001 OH 

21 * 


write (INDATA, 10) ( lOATA(J) ,J*»1 ,1*4) 



the 


000026 12 * 4(3 
0001 25 167(3 
OQOO*iO 70F 


CR2T0001 
CR2T0002 
CR2T0003 
CR2TOO0M 
CR2TD005 
CR2T0006 
CR2T0007 
CR2TOOOR 
CR2T0009 
CR2TOOIO 
CR2T001 1 
CR2T0012 
C R ? TOO 1 3 
C R 2 TOO 1 *4 
CR2T0015 
CR2T0016 
CR2T0017 

cR2Tnoia 
C R 2 T 00 I 7 
C R 2T0020 
CR2T0021 


0001 000037^ 130G 
0001 000110 170L 
q 0 0 0_ 0000*4 6 9QF 



00 ) 3*1 

0Qt«l2 

00t‘)2 

— OOtSl 
00151 

— 00152 - 
00 ) 5*1 

00154 

— 001*0 . 
00160 

— 00 161- 
001*2 

On > 6*1 

00173 

_ 00173 __ 

00J7H 
—00 1 7_ii 

00 ! 7 * 


« « WRITE OUTPUT|^fc. 

WRITE — Cl aSJLS^p K a 1,0 AT aJULI. J.*. I i 1 

* o UPDATE CARO COUNTER . 

I K h I K ♦ 1 — ____ 

» « IF OPERATION terminator, cease processing, 

IF (IDATAtn «EQo 10PTRM) GO TO. )V0 
150 CONTINUE 

« WR-J-T-e- TR«+t€-R- 1 1NE-, 

WRITE hosts, 90) 

- GO -TO 1 30 — ... 

* o WRITE ERROR MESSAGE AND SET Up AN END CARO FOR PROGRAM CONTINUE, 

170 CONTINUE 

WRITE HOSTS, 110) 


19q CONTINUE 

.C * 9 OUTPUT-TRAILER .LINE. 

WRITE H0SYS,70> 

C o-o END FILE ALTERNATE INPUT DATA FILE. 

END FILE 1 NO ATA 

-C_? . 9 ..R EWIND ALTERNATE INPUT DATA F I LE , 

REWIND INDATA 

..Return . . _ 

END 


CR2 

CRZll^ P 
CR2T002A 
.CR2T002S _ 

CR2T0024 

CR2T0027 

CR2T0028 
— e-R2T^oa® — 

CR2T0030 

CR2T0031. 

CR2T0032 

. CR2T0033 

CR2T003 1 ) 

_rR.2T 0fl.3-5_ 

CR2T0034 

. ER2T0Q32 

CR2To6ia 
„ cR2T0039_. - 
CR2TOORO 
CR 2T00R 3 
CR2T00RZ 

CR2T00.93 

cnzTOO 4 )*! 


end OF UNIVAC 1108 FORTRAN V COMPILATION. 

JLB-2JLAE SYMBOLIC 

CR2TAP CODE RELOCATABLE 


oOIAGNOSTICO MESSAGE ( S ) 

3 1 . A U 6_ 7.1 1.2 1 35 ip* 

31 AUG 71 12)35106 


JO 01 524252 

1 0I527R22 

.0 0152jf_=!52_ 


*H tPELETEOl 
I tDEL£T£D» 
.18 



TOT 


5.4.4 FBL 

This compilation was done on 02 sep 71 a t ti:s?:io 

SUBROUTINE FBL ENTRY POINT 000236 

storage user, (block, name, length) 


000! 

♦CODE 

OQQ245 

0000 

♦DATA 

000035 

0002 

»B|_ ANK 

OGOOOO 

0003 

ALLCOM 

023675 

□ 004 

FBLCOM 

001775 

0005 

VALUES 

ooooin 


external references IBLOCK, NAME) 

0006 INTERP 

0007 val 
0010 NERR3S 


"storage ASSIGNMENT FOR VARIABLES (BLqCK, Type, RELATIVE LOCATION, NAME) 


000) 

000121 

0003 

R 00002^ 

0003 

R 000050 

-JMJ03 

& 000422 

0000 

l ooono3 

0003 

l 0001H7 

0003 

R 0041 14 

0003 

R 010114 

0003 

R 014o35 

oaiot 

1 ft 

00103 

2 o 

.1X0)03 

3* 

00103 

4ft 

00104 

5© 

OOIOB 

6 o 

00106 

7 o 

001 1 I 

00 

.001 1 2. 

9 a — 

00113 

10o 

001)5 

1 1 o 

0011* 

12ft 

00117 

13t 

00120 

14ft 

00121 

15ft 

00121 

16ft 

00121 

!7o 


IOL 

CL 

CELT 

GC 

IPROP 

NFIPL 

PTEMP 

TIME 

WTEMP 


D00P04 1076 
R 000004 Ct 
R OOOcOO dfbl 
R OOOCOO GRHO 
I D00C04 JJ 
t 000150 NPLINE 
R 010034 RHOL 
R 000001 W 
R 017755 Z 


000220 30L 
R 000005 C2 
R 00005 1 DIAL 
I QOOOOO I 
I 000776 NFBL 
R OOP I 7 4 PL 
R 010044 SINALP 
R 0 I 0 1 IS tVOOTL 
R 000003 ZR 


R 000000 AREAL 
R 000007 C 3 
R 000075 FRL 
1 000744 IFBL 
1 000J23 MODEL 
R 000004 PR 
R 001011 TFBL 
R 000002 WR 
R 000006 ZS 


SUBROUTINE FBL 

COMMON/ALLCOM/AREALI20) »CC t 2 0 ) ,OELT , 0 I AL ( 2fl 1 ,FRL(20) ,G,GC, 
INODEL 1 201 ,NPI PL, NPLINE (20) ,PL(20, 100) , PTEMp ( 20 , 1 00 ) ,RHOL( B) , 

2S 1 N ALP ( 20 ) ,THETA (20) , T I ME , WDOTL ( 20 , 1 00 ) , Y(TeMP ( 20 , 100 ) ,Z(20,)00) 
C0MMON/FBLC0M/DFBL( 10.50) , 1 FBL t 10 ) ,NFbL»NPFBL( 10),TFBL(10,S0) 

C OMMON/ VALUES /GRHO, A RHO , WR ,ZR,PR,WS ,ZS ) PS 

DO 30 I»1 » NFBL 

CALL INTERP ( 10. Sn,pFBL,TFBL,I ,NPFBL(I ) ,TlMf,W) 
list FBL ( I ) 

IF (II .GT.O) GO TO 10 
IIn-11 

I PROP nNPL I NE ( I 1 > 

WTEMP I I I , 1 ) “W 

CAUL VAL( I I » I * IPR°P *2) 

CI--WS- ARE ALII II/CL ( II ) » ( G «RHOL < I PROP > »Z ( I I , 1 ) -GC «P5 » 1 4 4 .n-G ♦ 

1 RHOL ( !PROP)*ZS)-G/Ct-UI ) « WS *S 1 N ALP ( I I ) *OELT + FRL (II) »WSoABS <»S ) * 
20ELT/2.0/DlAL< III /RHOU I PROP) /AREAL (I I )*!?.0 


0005 R 000001 ARHO 
0000 R 0000)0 CH 

0003 R 000121 G 

SHQP I J?C00J)2_ H 

0004 I 000777 NpFBt 

0005 R 000007 Ps 
0003 R 010070 THETA 
0005 R 000005 Ws 



00122 

001.2 3... 

00129 
00 125 

00126 
001 27 

00130 
00+3 t~ 

00132 
- 00132 
00132 

00133 

00139 

00-1-15 — 

00137 

001 ‘JO . 


1 8 » 

L?.a 

20 e 
21 a 
22a 


C2«~AREAL(I 
P IEtlEJ.lI i L). 
GO TO 30 



«lH*t.O/CL tin 
C2-W/C2 


10 CONTINUE 

IPROPoNPL INE til) 



23a JJ=NO D ELtin _ FBL 0023 

29» WTEMP ( II t JJ><=R FBL 0021 

-25a- — CAtt-VAfcll nJlt-IPRoP » D- F^L 0025 

26 a C3 = -BR<-ftREAL [ 1 I)/Ct t II )*I6*RH0U IPROP)*Ztt I ,JJ)-GCoPR*1«1‘»,0^G«. FBL 0026 

27© . 1RH0UIPR0P )»ZR >*R/CL{ I I) aHRcSlNALPtl n*DELT<-FRLt I noBReA8S(WR )/ FBL 0027 . 

28a 22,0/'DIAtUn»12a0/RH0LtIPR0P)/AREALUl)«DELT FBL 0028 

29« -- CHsAREALU 1 »«GC/CL{ I I) oj 99«0 . _ FBL 0029 

30» PTEMPt I I |JJ)=”C3/C9"W/C9 F0L 0030 

—X U 3o_CQN.t-LNU£ _ .fBX.00.3i 

32» return fbl 0032 

33* END . FBL 0033 


END OF UNIVAC *108 FORTRAN V COMPILATION* 
Fbl SYMBOLIC 

CODE .. REL OCATABL E 


0 OOIAGNOSTIC« MESSAGEtS) 

' 31 AUG 71 12J35I07 0 01530096 1 9 

„ . 31. AUG 7} 1 2 J 35 J 07_ 1 0 1S3n 769 3* 

0 01531030 1*1 


33 IDELeTeD) 
1 (DELETED? 


20 



103 


5.4.5 INTERP 


this compilation was dome on nz sep 7t at 11:52:12 

SUBROUTINE INTERP entry point 000207 
STORAGE USfb (BLOCK, NAME, LENGTH ) 

0001 ‘CODE 000240 

0000 *0 AT A OOOISO 

0002 « BLANK 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 

NWDUS 

OOQ^ 

NIO 1® 

ooos 

NI02S 

OOOA 

NERR3S 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, Type, RELATIVE LOCATION, NAME) 


0000 00°003 1 OF OOOI 0001*6 (10L OOOl 00C07n I16G 0000 000047 30F 0001 OOOtl) SOL 

0001 000)17 70L OOOI 000)45 90L 0000 I 000000 IB 0000 I 000002 K , 0000 I 00000! Np . 


00! Ol 

It 

SUBROUTINE I NTERP ( M , N , DEPT AB , I NO T A B , I 1 , 1 2 , I NDP , DEPP ) 


INTEDOOt 

_00103 

2a 

REAL INoTAB, INDP 


INTE0D02 

00)0*1 

3 a 

DIMENSION DEPT AB ( M , N I »lNDTAB(M,N) 


INTE0003 

00105 

Ht 

10 FORMAT! *1THE VALUE OF THE JNDFPENdENT PARAMETER IS*, 

£ t *W S , * ♦ THE IN7EO004 . 

00105 

So 

1UPPER LIMIT ON THE INDEPENDENT TABLE I S • ,E 1 4 ,8/ » THE 

dependent 

VALINTEOOOS 

00 1 05 . . 

„6o.„ 

2UE HAS BEEN SET EQUAL TO THE UPPER LIMIT OF THE DEPENDENT TABLE 

WHINTePOO* 

00105 

7o 

3 I CH IS , ,E)4.8) 


I NTE0007 

..00106 

8 o 

30 FORMA T ( * I THE VALUE Of THe INDEPENDENT PARAMETER IS*, 

E 1 4 « S , • « THE INTE0008 

00106 

9« 

l LOWER LIMIT ON THE INDEPENDENT TA8LE IS* , E 1 4 * 8/ * THE 

DEPENDENT 

VAUNTE0009 

00)06 

1 Da 

2ue has been set equal to the lower limit of the dependent table 

WHINTcOOIO 

00106 

1 1 a 

3 I CH 1S«,EI4,8) 


1 NTE001 1 

_ 00 1 02— . 

12* 

ia»u 


INTEOQU 

00! 10 

13* 

NP = I 2 


INTE001 3 

00)1 1 

l^n 

IF ( INDP.LT, INOTAB ( 18 , J > ) GO TO 90 


jnteooi * 

00113 

15* 

IF ( I NDP.GT, 1 NDTAB ( I 8 «nP ) ) GO TO 70 


INteCOIS 

00)15 

I 6 o 

DO SO Ka2,NP 


INTE0016 

00120 

1 7 o 

IF { I NDP.GT.INDTAB ( IB sK) ) GO TO 50 


INteOOI 7 

— 00 12Z _ 

la* . 

DEPPolDEPTAB(IB,Kl-DEPTAB(IB,K-n t«(INDP r INOTAB) IB, K 

-)1)/(IN0TAB INtEOOIO 

00)22 

19a 

1 (1B,K)-IN0TAB(I8,K-I) >+DEPTAB< IB ,K-I ) 


INTEOOI 9 

00)23 

20a 

60 TO 110 


INTE0020 

00124 

2! « 

50 CONTINUE 


INTE0021 

00126 

22a 

70 CONTINUE 


I NTE0022 

00)27 

2 3* 

WRITE (6, 10) INOP, I nOTAB ( IB, N p> .OEPTAB ( IB ,NP) 


! NTED023 

00134 

2H* 

DEPP = DEPTAB( ib,np> 


INTF0024 

00)35 

25 o 

GO TO 11'* 


INTE0n25 

00)36 

26* 

90 CONTINUE 


INTF0026 



Ihdtab tie. i > ,deptab< ib, i ) 


0013? 

cuuaiL 

ooi a 5 
_ ooi*»6 

001*17 


27* WRITE <6»30;4^ 

20* . DEee«DEPTAOII^PS 

29* 1 10 CONTINUE 

30a RETURN 

3 1 a END 


INTE^k 

l NTE0029 
INTE0030 
INTE0031 


END Op - ON I VAC H08 FORTRAN V COMplUATTON. 

jjiXgae.. .. SYM8-0L ic 

INTeRP co6e relocatable 


0 «D I aqnost i c* messageisi 







.31 AUG 71 1 21 35 J09 _ 

31 AUG 71 12t3S;09 

0- Q 1 53 l 3.60..... 

H 

31 

( oeleTudi 



1 0 15323*12 

2^ 

1 

IDEUETeO) 




0 01532372 

- - 1 — 

2**- 



_ — 



105 


5.4.6 JUNCL 


THIS COMPILATION vtaS DONE ON 02 SEP 71 fl T li:52jn 


SUBROUTINE JUNCL 


ENTRY POINT 00a 2 7'4 
NAME* LENGTH 3 
0003r>5 

000051 

000000 

023675 

OO0075 

000010 


storage USp& (BLOCK* 

0001 » CODE 

0000 *data 

0002 »BLANK 

0003 ALLCOM 
OOOH JUNCLC 
ooos values 


EXTERNAL RErERENCES (BLOCK t NAME) 

' * 0006 ‘ VAL’ r, 4 

0007 NERR3S ‘ 


’ j 


STORAGE 

assignment ;por 
. > 

'.VAp TABLES 

(BLOCK 

^ rypE f- 

RELATIVE 

LOCATION, 

NAME) 









□ 001 


0001 ! o 

lot * 

" , 0001 


00000*4 

I 10G 

0001 


0C0017 

1 I 4 G 

0001 


000203 

mo» 

0001 


000217 

1 S 1 G_ 

" 000 1 


000] 74 

30L/ 

0001 


000236 

70L 

C001 


000251 

90L 

0003 

R 

oooono 

AREAL 

0005 

R 

000001 

ARHO* 

0000 

R 

Q0OQ05 

CO 

0003 

R 

000024 

CL ' 

oooo 

n 

000000 

CN 

0003 

R 

000050 

DELT _ 

0003 

R 

00005 1^ 

DIAL 

0003 

R 

000075 

FRL 

0003 

R 

00012 1 

G 

0003 

R 

00 0 1 22 

GC 

0005 

R 

OOOOOC 

grho 

0000 

I 

000012 

I 

— 0000 

l 

oOnots 

-4-1 l - 

OflQ 4 

I- 

qqqgqo 

I JUNCL 

„ oooo 


OCOQH. 

IPROP „ 

0 0 0 

I. 

onooi4 

„ J_ . 

0000 

T 

OOOO 1 7 

JJ 

000*4 

I 

000062 

NJUNCL 

# 0004 

I 

000063 

NLJNJU 

0000 

1 

000013 

NNN 

0003 

I 

000123 

MODEL 

0003“ 

J 

I 

000147 

Np IpL 

0003 

l 

000)50 

NPL1NE 

ocoo 

R 

OOOC22 

P 

0003 

R 

OOG 1 7 4 

PL 

0005 

R 

000004 

PR 

OOOS 

R 

000D07 

PS 

0003 

R 

0041 14 

PTEMP * 

0003 

R 

010034 

RHOL 

OOC 3 

n 

0 t CO 4 4 

SINALP 

0003 

R 

010070 

theta 

0003 

R 

010114 

7 I 

0003 

R 

010115 

\V 0 0 T L 

0005 

R 

000002 

WR 

CO 05 

R 

000005 

yvs 

0003 

R 

014035 

NTCMP 

0000 

R 

000021 

XoEN 

0000 

R 

O0n<72O 

xnum 

0003 

R 

0)7755 

Z 

0005 

R 

000003 

ZR 

0005 

R 

000006 

zs 






~ 

— - 

• 

t m - 




— 




— 










oqToi 

u 

00103 

2o 

,Q0 LQ± 

3a. 

0010*1 

4c 

0010*1 

- Sc 

00105 

6 « 

00106 

7c 

00107 

So 

00412. 

?a _ 

OI)lt3 

100 

00)11 

- lie 

00) |7 

1 2 « 

00 1 2 1 

13c 

00122 

14* 

00123 

1 5 o 

0012*1 

l 6o 

00 1 2*1 

17c 


SUBROUTINE JUNCL 
DIMENSION CN(S) ,CD(S) 

. .comhon^allcom/arealizoj.clizo) , t>ELT ,D I AL < 2$ > ,FRLt20),<;,Gc: 
IN00ELI2O) .NPIPL,NPLINE(20>,)PU20.100) ,PTpMp ( 20 , 1 00 ) ,RHOL(b)~ 

2S IN ALP (20) i THETA I 2c ! , T JME , «DOTL ( 20 , 1 00 ) , WTE«P ( 20 , I 00 ) , 2 t 20 , I 00 1 
' COMMON /JUNCLC/ 1 JUNCL ( 1 0 , 5 ) , N JUNC L , NL 1 N JU < 1 r » 

COMMON/ VALUES/GRHO,AaHO,WR,ZR, PR, WS.ZS.PS 

00 110 t ct 1 » N JUNCL “ 

NNNtiNLlNjU ( 1 1 

DO 30 Jo 1 ,NNN 1 

1 1 b I JUNCL ( I »J) 

IF (II.GT.O) GO TO 10 
II®- II 

I PROP = NPLlNE< I I ) 

CALL'VALUI «l»IPR0p,2) 

CN( J| =-( -IVS- AREAL { I J )/ c L( I I )o (GcRHOL ( I PROP ) «Z t 11,1 )-5C°PS«l RV.0-,5 

IRHOU IPR0P)*2S)-6/cl.( I n*WS*SINALP( 1 I ) «DELt+FRL(l n*«So A B5(WS!» 


JUNC0001 
JU NC0002 

_ JUN£000 3 _ 

jUNcOOOR 

JUNC0005 

JUNC0006 

JUNC0007 

JUNCOOO0 

jumcooo ? 

JUncOOIO 

juncooii 

JUNC0012 
JUNCOOJ 3 
JUNCOO 1 *t 
JUNC0015 
« JUNCOOI 4 
JUncOO 1 7 



106 


00121 

_QQl.2S__ 


0012* 

00 t 27 

00130 

00131 

00132 

- — — 0-0 1- 3 2 — - 

00132 

00133 

001 3*4 

00136 - 

00137 
00-1^4 a 


OOl <43 
-001 H*4 
001*45 
001*47 „ 
00150 
- 001.53 


16o 

- 1?.* 

20 $ 

2 1 « 
22 $ 

- 23 * 
2 Ho 

—25, * 

26 o 
27 $ 
20 $ 
29 o 
30 o 

3 1 $ — 


32 o 
3 3 o 
3 < 4 o 
35 $ 
3 6 o 
J2 jl 


0015*4 

-00 156 - 
00157 

-00 160 

00151 

- 001 -5 2 


38 c 

39* 

10 « 

1 U 
12 « 
Ji-3-o- 


00163 
4 J 0 I 69 - 
00} 65 

-00166 

00170 
00172 


11o 
-<S5o 
16 * 
— 17 o. 
IB* 
*L2.ji_ 




)/RH 0 L(l PROP) /ARE ALU 1 1 * 12 . 0 ) 
GC*IH.O/CL!U) . __ . 


00173 


50 o 


2 DELT/ 2 * 0 /Dl 
... CD 1 JJ.j 2 .ARE AL 
GO TO 30 
10 CONTINUE 

J JnNOOEL Ull 

CALL VAL ( 1 I tJJ* IPROP. 1 ) 

CN( j) 0 - W R*AREAU< I Ii/cL(lI)o(G*RHOLUPROP)o Z (li,JJ) 

IRH 0 L-UEJ 1 *P>-* 22 >'>G/CL< I I )«SRoSINaLP ( 1 1 )j>DELT<.SBL ( 1 1 
22 . 0 /DlALtH )« 12 . 0 /RHOL (IPROP) /AREAL Ul ) °DELT 
CO I J> -AREAL I I I) *GC » t 'IN « Cl/CL ( II > 

30 CONTINUE 


. 4y»^rs- 
JUHC 0020 
JUNC 0021 
JUNC 0022 
JU NC Q 021 - 

-GC*PR« 1 11 * 0 "G« JUNC 0021 
) oHRoAOS J KR ) / _JUn&QQ 25 ._ 


50 


XNUK=> 0.0 

XOEN= 0«0 

-DO- SO U 4 -»NNN._ 

XNUMoCN ( J)+XNUM 
XOENbCOLJ) ♦XDEN 
CONTINUE 
P=-XNUM/XOEN . 
DO 90 Jol .NNN 
HMJUNf LIl ,J) 
IF m.GT.O) GO 


JUNC0026 
JUNC0027 
JUNC0028 
JUNC0029 
JUNC0030 
JU NC 0Q3 1 

JUNC0032 
JUNC0033 
JUNC0031 
. UUNC003S. , 
JUNC0036 
jUN r0037 


TO 70 

I I ■*» It — - - - _ 

WTEHPI I I , 1 )OCN(J) 6 C 0 (U) *P 

PTEMPUI»U«P - 
GO TO 90 




J JoNODEL (II 1 

BTEMPUt *slJl = -CNtJ)«’CD(J)»P 

PTEMPt I I ,JvM>=P 

9 q_C 0 NT- 1 NU£ 

t 10 CONTINUE 

U PTURN 


JUNC 0038 
JUWC 0039 
JUNC 0010 
. JUNCOOSll... 
JUNC 0012 
■ IU t[rfin«l 3 


JUNCOOII 

_JUNC00^5_ 

JUNC 0 C 16 

JUNC0O3Z.. 

JUNC 0010 

J UNC 0019 


CNO 


JUNCOOSO 


END OF UN 1 VAC "noe FORTRAN V COMPILATION* 

^LULNO, .symbolic 


0 ODIAGNOSTIC* 


JUNCL 


CODE 


RELOCATABLE 


MESSAGE { S ) 
3 1 AUG 7 J 
31 AUG 71 


I2J35U0 
I2J351 10 


0 015 33112 


H 


0 ! 53*4*406 
O 153 < 4*452 


36 


.so 

1 


IDELEtbOl 


23 


5.4.7 PBL 


This compilation «as done on 02 sep 71 a t ii :-s2:»s 


SUBROUTINE PBL 

ENTRY POINT 000233 

storage: used 

(BLOCK, 

NAME, LENGTH) 

000! 

♦CODE 

0002 42 

oono 

♦ data 

000030 

0002 

* BLANK 

QOOOOO 

0003 

ALLCOM 

023675 

ooo4 

values 

000010 

0005 

PRLCOM 

002007 


EXTERNAL REFERENCES (BLOCK, NAME ) 

0006 INTERP 

0007 VAL 
0010 NERR3S 


storage 

ASSIGNMENT for 

VARIABLES 

(BLOCK 

1 type. 

relative 

0001 


ooni l 3 

10L 

0001 


000004 

107G 

000 ! 

0003 

R 

000024 

CL 

0003 

R 

000050 

DELT 

0003 

0003 

R 

000 1 22 

GC 

0004 

R 

ooonoo 

grho 

0000 

0005 

I 

0000 U 

! PB 

□ QUO 

J 

000002 

1 PROP 

DODO 

0003 

1 

000147 

NP1PL 

0003 

! 

000150 

NPLINE 

0005 

— 0004 

R 

000O04 

PR 

0004 

R 

000007 

PS 

.. 0003 

0003 

R 

0 1 0070 

theta 

0003 

R 

010114 

TIME 

0005 

0004 

R 

OOnooB 

ws 

0003 

R 

014035 

flTEMP 

0003 


LOCATION 

# NAME) 










00021 S 

30L 

0003 

R 

ooooon 

AREAL 

OODq 

R 

ooooof 

ARHO 

R 

000051 

DIAL 

0003. 

. R 

000075. 

FRL . 

0003 

.R 

000121. 

G _ 

I 

000000 

I 

0005 

I 

000000 

iend 

0000 

1 

000001 

II 

.1 

Qounas 

J J 

„ 000 3 

. I *. 

.0QQJ.23 

NOHEl 

-.0.005- 

_I_ 

000024 

NPBt 

I 

000025 

nprbl 

0003 

R 

000174 

PL 

0005 

R 

000037 

PpRbL 

R 

oorI 1 4 

PTEMP 

0003 

R 

010034 

rhol 

0003 

R 

010044 

5iNaL?_ 

R 

001023 

tprbl 

COO 3 

R 

0101 15 

irootl 

000« 

R 

000002 

«R 

R 

017755 

Z 

0004 

R 

000003 

ZR 

,000*t 

R 

000006 

Z 5 


ooiol 

1* 

SUBROUTINE PBL 

P8L 

onoi 

-00103 

2o 

COMMON/ ALLCOM/ ARE AL ( 201 ,CL ( 2f) > » DELT ,D I AL t 20 ) , FRL ( 20 ) , G , GC , 

PBL 

0002 

00103 

3o 

1N0OELI2O) ,NP I PL, NPLINE <201 , PL < 20 , 1 00 1 , PTEMP ( 20 , 1 00 ) ,RHOL ( 8 1 , 

PBL 

ono3 

.0X1103- 

„ ~ 4 0 

2S I N ALP ( 20 ) i TMET A ( 2n 1 , T 1 ME » WOOTL ( 20 , 1 CO > i«TEMpJ 20 , 1 01) , Z (.20 , 1 00.) 

PBL 

C 0Q4 

00104 

5* 

COMMON /V ALUES/GRHO, ARHO, WR.ZR, PR, WS,Zs. PS 

PBL 

0005 

00105 

6 « 

COMHON/PBLCOM/IEND(10) ,IPB( 10) ,NPBL. NPRBL ( 10) , PPRBL (10,50) , 

PBL 

0006 

00105 

7* 

1 TPRBL t 10,50) 

PBL 

0007 

. 00106 

80 

00 30 1=1»NPBL 

PBL 

0008 

ooi 1 1 

?o 

! I n 1 PB ( I ) 

PBL 

000? 

—001 1-2. 

i-Qo 

IPRQPaNPLlNE(Il) _ ... 

PBL 

0010 

00113 

l U 

IF (I END ( 1 > «E0 »2) GO To 10 

PBL 

001 1 

00115 

1 2 0 

CALL INTERP(10,50»PPRBL, TPRBL, I * NPRBL ( I) , T I ME , PTEMP (1 1 , 1) ) 

P&L 

0012 

00116 

1 3 0 

CALL VAL (I I » l » 1PR0P ,2) 

PBL 

0013 

00117 

14* 

IVTEMPt 11,1 )»\VS + ARCaL( 1 1 )/cL ( I I ) o ( GCoPTEMP t t I , 1 )* 144 ,0+GoRHOL 

PBL 

0014 

00117 

1 S 0 

t ( IPROPloZI I I , 1 1-GC*PS» | 44.0-G«RHOL( 1PR0P) #7S } +G*WS/CL < 11) oS INALP 

PBL 

P01 5 

00117 

! 6ft 

2(11) »DELT “FRL C I I ) ®nS * AgS ( WS ) oDELT /2 , 0/ ARHO /O 1 A L ( I I ) • 1 2 • 0 

PBL 

0016 

00120 

I 7 ft 

GO TO 30 

PBL 

0017 

00 121 

16« 

in CONTINUE 

PBL 

0018 



JJ*NODEL{inj^ 

£AU_tNIEfiri^BIOtEPH&LjTPRBL.t ,NPR_B_U(I) ,7iHE,PTEHPt U »UJ>> 

CALL VAL ( H .■^^iPRoP ,1 ) P0L OTSt 

_^TEMPm«J^)»WR»AREAUin/CUm6<QCopT£KP(II,JJ|oHH.O«(;oRHOL PBL 0022 „ 

J UPR0P)*Z(1I t JJ)-Gc«PR«t*H.0-GORH0L< I PROP ) «ZR ) -G °WR/CL < 1 n«SjNAUP PBL 0023 

2 1 1 1 > »OELT**PRLt II )O|«RoABS{wRf»0ELT/2»0/ARH0/DlAL< 1 1) » 13.0 - PBL 002R 

3o Continue pbl 0025 

RET-URN __ .. fi-BL-OORA 

END PBL 0027 


END OF UNIVAC HOB FORTRAN V COMPILATION# 

.Pbl symbolic . 

PBL CODE RELOCATABLE 


0 ODlAGNOSTIC* MESSAGE(S) 

3 1 AU.G 7 I 12i3SjJ2_ 

31 AUG 71 I 2 { 35 J I 2 


.£L 0IS3SLSM 
I 01S357S6 
1 : 


„1.N _27 (DELETED) 

36 1 (OELeTeO> 


5.4.8 PBLF 


this compilation was done on 02 sep 71 a t ii { s 2 :i 6 

SUBROUTINE PBLF ENTRY POINT 000430 

STORAGE USFO (BLOCK, NAME, LENGTH) 


0001 

oCODE 

000^40 

0000 

AT A 

000044 

oon 2 

•blank 

OOOOOC 

0003 

ALLCOM 

023675 

000 4 

PBLFCM 

0040 1 5 

0005 

values 

000010 


EXTERNAL REFERENCES (BLOCK, NAME) 


0006 

INTERP 

0007 

val 

0010 

SORT 

001 1 

NERR3S 


OOOJ 000224 50L 
0003 R 000024 CL 
00 00 R OOOOOS C5.5 
0003 R~ 000(21 G 
0000 I 000001 Ii 

0003 I 000123 NODeL 

0004 R OOOOSl PgNQL 
0003 R 004114 PTEMP 
0 Q0 ±J?. 0010 47 TKPBLF 
0003 R 014035 VTtEmP 

0005 R 000006 ZS 


OOlOl 

1 0 

SUBROUTINE PBLF 

RBLFOnOt 

. 00103 

2« 

COMMON/ALLCOM/AREAl<20) ,CL<20) ,DELT,0IAL(2(5) ,FRL(20) ,G»GC; 

P&LF0002 

00103 

3 «► 

1NOOEL (20) ,NPJPL ,NPlINE ( 20) ,PL (20 , 100) ,PTEMp <20, 100) ,RHOL (S > , 

PBLF0003 

00103 

4 0 

2SINALPI201 *THETA(20) ,TIME«WD0TL(2O, 1001 ,*TTEMP(20, 100) ,Z(20, 100) 

PBLFH004 

00104 

5 0 

COMMON/PBLFCM/IENOFdOl.IPBFdOt.NKPBLfliO) , NPrLF , NPPBLF ( 1 CM , 

PBLFOOOS 

. 00104 


1PBNDLI (OljPPBLFt 10,50) .TKPBLF ( 10,50} , TPBLr ( 1 0 , 50 ) , XKPBLF < 1 0 , SO 1 , 

PBLF0006 

00)04 

7 • 

2XKP (10) 

P8LF0n07 

00105 

Bo 

COMMON/ VALUES/ GRHO, ARHO, VVR , ZR ,PR ,WS , Z$ » PS 

PDLpoonB 

00106 

?o 

DO 1 10 1 * J , NPBLF 

P0LFODO9 

00)11 

JOa 

1 ! » I PBF ( I 1 

PBLFOQin 

00112 

1 1 « 

CALL |NTFRP(10,5r,pPBLF,TPBLF,l, NPP bLf (1) , T 1 HE ,PSNDL ( 1 ) ) 

PPLFOnt l 

00113 

12a 

CALL INTERP(I0,5P, XKPBLF, TKPBLF, I, NKPBLF(I), TIME, XKP(D) 

PBLF n 0J2 

00 1 I 4 

13a 

IPROP«NPLINE (ID 

PfiLFOD 1 3 

00115 

14a 

IF ( 1 E N or ( I ) «E0 * ? ) GO TO 50 

PDLpnni4 


storage assignment rOR variables ( r Lock» type, relative location, name) 


M 

g •.,.0001 non 1 75 101 0001 000004 lp7G 

0001 000355 70L 0001 000400 90L 

. OOQO R 000003 Cl QQOQ R_0CQQ04 C2 

0000 ft OOHOO* C66 0003 R OOOnBQ DELT 

0003 R 000122 GC 0005 R OQOOOO GRHO 

00 0 4 1 00nnJ2 IPBF 0000 1 000002 ! P R 0 P 

000 H j OOno36 NPBtF 0003 I 000147 MPIPL 

0003 R 000174 PL 0004 R 0000*3 PPBLF 

..0003 R 010034 RHOL _ 0003 R 010044 siNAj-P 

0004 r O02n33 TP8LF 0003 R OlOHs WD07L 

0004 R 004Q03 XKP 0004 R 003q!7 XKPBLF 


0001 00041J 110L 0001 ,000214 30L 

0003 R OOHOOO AREAL 0005 R OOOoOl ARHO 

0000 R oonolo C3 0000 „R OOOOl l C 4 

0003 R 000051 DIAL 0003 R 000075 F*L 

OOOO I ormono I 0004 J OOOOOO 2ENDF- 

0000 I 000007 JJ 0004 j 000024 NKPBLF 

0003 I 00(7150 NPLINE 0004 I 000037 NPPBLF 

0005 R 000004 PR 0005 R 000007 PS 

non3 R 010070 THETA^ _ ^ 0003 R 010114 TI«E_ 

0005 R 0000n2 WR ~ 0005 R 000005 W S 

0003 R 017755 Z 0005 R 0000Q3 ZR 



001*7 

_0JH2&_ 

00120 

-00120 

00121 

-00122 

00123 

--©e+2 


15s 
XiA . 
17e 
1 B» 

1 9 » 
20 « 
21 e 
-22s- 


CALL VAL ( II » iM'JP .2> 

C.ll.-*tS?AREAL<^WcL< n>«<«‘ , RHOUnPRQP)»ZUl»l)rGCsPSsl‘i5tO-Q*„ 

1RH0L t I PROP ) eZSp<b/cL t 1 1 > *WS sSl N ALP ( I 1 1 «DEL T«FRL < I 1 ) *W5sABS tWS ) « 
2DELT*2.O/DlALm)/RH0L<lPR0P)/AREALtm*12.O 
C2»-AREAL( 1 I IsGCsl'lR./CLd ! ) 

C55n*XJCP< I )<M?292i09GCoRH0L(lPR0P)9t*H*0/C2 

C&6«»XKP(I ) «« 2 92^*00* RHOU ( I PROP ) o \ *4 H ♦ 0* t PB NOL ( I )♦€ ! / C2) 

~ IF— (C66-oLC«0*QJ- GQ T 0-10 — - T — * - 


at 


00 1 2 A 

23* 

WTEKPl 1 1,1) 

0012? 

29# 

GO TO 30 

00 J 30 

25 * 

lr CONTINUE 

00 1 3 1 - 

26* 

WTEMP1 1 t » 1 ) 

00132 

2 7« 

30 CONTINUE 


-00-1-03 — 
0013** 
-Q013&- 
00136 
- 00137 - 
OOHO 
- OOU - 4 J 3 — 
00l*<0 
-00 Ht- - 

D01H2 
-00 1 93 — 
oo 1 9 9 

— ( 7 Q - 4 - H - 6 — 


- 2B<*- 
29 o 

- 30 o 
31 9 
32p 
33<? 

— 3 fj-p . 
35 o 
36o 
37 o 
3 3* 
39* 

4*Xo- 


SQRT (C$5*C5S-Hf 0*C66) /2*0 

P.TEHEi tI^U«?WT£M£( I L *1 %/CZ-C l/CZ- 

GO TO 110 

50 CONTINUE - ~ 

J J=N0DEL (11) 

- CALL VALUI fJJtIPROP f 1 1 - - ----- 

C3*-V7R + aREAL< I 1 )/Ct (1 ! )<MG*RHOL UPROP) oZ( I f , JJ) *GC*PR*1 49,CUGo 
.iEH0t4XP£0ElftZR).+ G/JCLllUfiWR ft aiKAUE.Uilfln£mLEilLU.I-lAlRAAB51WBl/l 


PBLF': 
..£BLri , 

PBLFOf 
PDLF001 s 
P0LFOO1 9 
P3UF002D 
PBLF0021 
--P0LEOO22-- 
PBLF0023 
PBtFP02*4 „ 
P6LF0025 
„ PBLF0026 _ 
PBLF0027 

E0LF HQ £8 

PBLT0029 
E0LFOO3Q.. _ 
PBLF003I 

. _PBLF0032 

PBLF0O33 
PBt r0039 


22.0/DI AL C I I ) «• 1 2.0/rHOL ( 1 P R 0 P 1 / A RE AL U I ) *PE L.T 

C4«AREALC! U9GC/CL( I 

CS5aXKP(I)«>«2*2iOOGC*RHOLUPROP)oH 1 4oO/ r c4 

C 6 BwXKPM >**2*2.0<>GC9RH0L( I P R OP ) * 1 4*1 * 0 * ( C 3 /C 4 + PBNDL (1 ) L 

IF (C66.GToO#D) GO TO 70 

J ) vvlCSSJ ^ A QA.5flRX.til559C55.TAfiJ09r66) /2 ft H 


PBtF0035 
. P0LFOO36 
PBLF0037 

PBi . FQ 0 38 _ 

PBLF0039 
JHiLF 


00197 

OOl 50 - - 

00151 

00152. 

00153 


<110 
- 92o 
9 3 o 
99e- 
*}5o 


GO TO 90 
7o-C0NT|NUE -- 

WTEMP ( I I % JJ)«C55/2.0- 
— 90 -CONT 1 NUE • 


SqRT ( C 55oC55*H90*C66) /2.0 


UXX 


PTEMPU 1 # JU)«*WTEHP< 1 1 # UU 1 /C 9 -C 3/C 9 

cqnxi.nuc 


P&LF009! 
EBtFOQ 92- 
FBLFU 093 
^PBLFQO^iL 
P8LF0O95 
F B L F 0 0 9 6 


P 

o 


00156 97* 

00 1 5-7_ 9 8 o 


... ENO OF UN 

pblf 

PBLF rn t)F 


RETURN 

END — 

IVAC 1108 FORTRAN V COMPILATION. 

symbolic 

PELQCAXA&LE 


PBtrOO*f7 

PBLFOO^B 


0 ODI AGNOSTIC" 


MESSAGE t 5 ) 
31 AUG 71 
31 AUG 71 


12 : 35 : in 

ims iJLi_ 


0153*929 

0153766*1 


H 

36 


93 

1 


*OELeTe d > 
(PELETEP) 


0 0 1 537730 


19 


33 





5.4.9 PIPEL 


this compilation was done on 02 sep 7i at ti:52;i8 


SUBROUTINE 

PlPEL 

ENTRY POINT 000221 

storage usf 

n (FLOCK, 

NAME, LENGTH) 

0001 

♦ code 

000235 

0000 

♦ DATA 

00C037 

0002 

♦blank 

000000 

0003 

allcom 

023675 

OOOH 

VALUES 

000010 


EXTERNAL REFERENCES (8LOCK1 NAME) 

0005 VAL 

0006 NERR3S 


storage 

ASSIGNMENT for 

variables 

(BLoCKi 

TYPE, 

RELATIVE 

LOCATION , 

name ) 









0001 

00D005 

1 n6G 

0001 


000030 

1 1 5 G 

0001 


OOfl 175 

30L 

0003 

R 

OOOOnn 

areal 

000*4 

R 

oooooi 

ArHo 

0003 R 

oono2s 

CL 

0003 

R 

000050 

DELI 

0003 

R 

00005 1 

DIAL 

0003 

R 

000075 

FRL 

0003 

R 

000121 

S 

0003 R 

000 [ 22 

G C 

OOOH 

R 

000000 

grho 

0000 

I 

000000 

I I 

0000 

I 

oooooi 

IPROP 

0000 

I 

000003 

uu 

0000 I 

000002 

NM 1 NOD 

0003 

! 

000123 

NODEL 

0003 

1 

0001^7 

NPIPL 

0003 

I 

000150 

npline„ 

0003 

R 

0001 Z R 

PL 

000*1 R 

oooonR 

PR 

000R 

R 

000007 

PS 

0003 

R 

004 t I H 

ptemp 

0003 

R 

0i003<4 

RHOL 

0003 

R 

0 t 00*1 *1 

sinalp 

. JQflOl, R- 

o 1 no70 

THETA _ 

0003 

R 

01 0 1 1*1 

TIME 

0003. 

R 

010115 

V-DOTL 

000^ 

R 

OOOOQ2 

wn 

00.0 4 

„R , 

_00000_5_ 

J15- 

0003 R 

OH035 

wtemp 

0003 

R 

017755 

Z 

000*4 

R 

OOPOO 3 

ZR 

000*4 

R 

000006 

ZS 






- -OOlOJl- 

1« 

00103 

26 

00103 

3 t 

00103 

So 

0010*1 

So 

ooios 

6 o 

-OOUO 

7 o 

00112 

8o 

00113 

9o 

001 1*1 

1 0 0 

-00117 

lie 

00 1 20 

l 2 « 

00 120 

* 1 3 c 

00)20 

l*4o 

00121 

Ibo 

OOJ 21 

1 6 « 

001 zt 

1 7 o 

00121 

1 8 o 

00122 

19« 

001 2*1 

20® 

00126 

2 l * 


SUBROUTINE PlPEL PI 

C0MM0N/ALLC0M/AREALI20) ,cU20) ,DELT ,DlAL(2n) ,FRL(20) ,G,GC, PI 

lNODEL(ZO) t NPIPL»NPLlNE(20) ,PL<20,100> ,PTEMp<20, 100) , RHQL ( 8 ) v P? 

25 I N ALP ^ 20 ) i THETA (20) , T I ME , VVDOTL < 20 , 100) ,WTeMP ( 20 , 1 GO > , Z ( 20 , 1 00 > PI 

COMMON/VALUES/GRHO,ARHo f WR,ZR t PR,WS,ZSoPS PI 

DO 30 11*1 >NPIPL PI 

IF INQOELI I I ) *LT *3 ) GO TO 30 - PI 

IPROPbNPLINeC 1 I ) PI 

NM l NOD*NODEL 1 1 I > - I PI 

DO 10 J J*2 » NM I NOd PI 

CALL V AL ( I I > I PROP »3 i PI 

WTEMPf I I f jU)oO«5o(wR + WS + AREAL(I! )/CL< I I) « ( GC * P R* 1 H *4 • O+RH OL < 1 PR 0 P ) oP I 
1G*ZR-G£9P5*1M*-RH0U 1 PROP UG**S J -G/CL U II 9DELT*S I N AL? < I I 1MV/R~W$)PI 


2-FRl ( I I ) «DELT/2*/DI AL< 1 ! ) • t 2 « / A R HO « ( « R * A B S f WR ) *WS « A B S < WS >> > 
PTEMPUItJU) ” 0.5? (pR + GRHOoZR<-PS^GRHO*ZS<-cL C I 1 >/GC /AREAL (ID* 
t < WR-VS )/1*4 *W-DELT*g/GC/AREAL< II JOSINALPUI) * <W R + WS ) / l *♦*! • - C*- <1 I) * 
2FRL (II) «0EET/GC/2t /DI AL( II )*12 o/ARHO/AREAL(I1 )*(WR«abS(WR| -PS* 
3AB5(W5I)/1^H*I -GRHO*Z < I I » JO) 
in CONTINUE 
3C CONTINUE 
RETURN 


PI 
PI 
PI 
P! 
PI 
P 1 
P ! 
P 1 


PEOpOI 
PE0002 
PEO 003 
PEOOQM 
PE0005 
PE0006 
PE0007 
PE0008 
PE0009 
PE0010 
P E 0 0 1 \ 
PE0012 
PE0013 
p e o n i ^ 

PE 00 1 5 
PE H 0 I 6 
PE0P17 
penoie 

PECO 1 9 
PE0020 
PE002I 



00127 


22 * 


END 


PIPC< 


END OF - UNtVAC fl&B FORTRAN V CO'Mp I j. AT I ON , 0 odIaGNOStIC* MESSAGE(S) 


P 1 PEL 

SYMBOLIC 

31 

AUG 71 

12135115 

0 

ois*fa^6 


Z2 

P1PEL code 

Relocatable 

31 

AUG 71 

12135* 15 

1 

01S4 1 332 

2^ 

1 






0 

01541362 

1 H 

ia 


{DEUETeOA . 
<OELETeD» 


tv> 



5.4.10 RECL 


this compilation was dome on oz s£p ti 11*52*20 


SUBROUTINE REGL ENTRY POINT OPO&62 

storage USfO (BLOCK, name, length > 


onoi 

©code: 

000^73 

oono 

*data 

000053 

aoo 2 

orlank 

oooono 

0003 

allcom 

023675 

QQOH 

ckahbr 

□04626 

0005 

FLAGS 

000006 

0006 

ReOLCH 

001601 

0007 

values 

000010 


EXTERNAL REFERENCES (BLOCK, NAME} 

0010 val 

0011 WRITE 

0012 NEXP6* 

0013 NERR3S 


STORAGE 

ASSIGNMENT for 

VARIABLES 

(RLOCKt 

TYPE, 

RELATIVE 

location 

..OOQ1_ 

0004 

R 

000535 

ooonco 

10L 

AREA 

0001 

0004 

R 

000004 

000020 

H6G 

aReac 

0001 

0003 

R 

000623 

nooooo 

0006 

R 

001 450 

AREGp 

0007 

R 

DQOPOl 

aRHO 

noa4 

R 

000030 

000*4 

R 

oonn43 

ccc 

0004 

R 

C00C53 

CEF 1 

0004 

R 

000055 

000*4 

R 

QaO£77 

CR 

0004 

R 

000 1 Q 1 

ePi 

0004 

R 

OOC1D2 

0004 

R 

oon f 2 1 

CS2 

0004 

R 

0001 27 

cv 

0004 

R 

OOP 147 

. .0006 

R 

00 1462 

C 3 

. 0006 

R 

Or ^ 463 

C4 

0003 

R 

OC0O5O 

0003 

R 

00005 i 

D1 AL 

0004 

R 

000152 

D T AT 

0006 

R 

001460 

0006 

ft 

001463 

0HC4 

0004 

R 

000154 

dpman 

0004 

R 

oani?4 

0004 

R 

oon?o2 

ow 

0004 

R 

000210 

OWFUEL 

0004 

R 

O00220 

0003 

R 

oonn75 

FRL 

0006 

R 

0014^5 

FW 

0003 

R 

OG01Z1 

0004 

R 

OOP? 3 4 

OR 

0007 

R 

OOOOOO 

GRHO 

0006 

I 

001476 

Q 00 5 

1 

ooanoi 

ICHAMP _ 

0006 

I 

or 1 476 

I D UM 1 

0006 

I 

001477 

0004 

I 

000256 

I ENS 

0006 

l 

001477 

ll 

0005 

I 

000005 

. 0004 

I 

000257 

IPUMi 

0004 

I 

00026 i 

1 Pl/MO 

0005 

I 

000003 

0004 

l 

000274 

t 5 2 

0005 

l 

000004 

lTURBW 

0000 

1 

000010 

0004 

R 

0003 1 2 

KAYl 

0004 

H 

OO0422 

KAY10 

0004 

R 

000432 

0004 

R 

noo34z 

KAYH 

0004 

ft 

000352 

KA'tS 

0004 

R 

000362 

„ QOOH 

R 

QQ04 i Z 

K A Y 9 

, OQOO 

I 

000000 

KOUNT 

QOO 6 

1 

001502 

0004 

I 

l 

l 

l 

000452 

MR 1 

0004 

1 

0r0453 

MW 

0004 

I 

000463 

0004 

000473 

NCOEF 

0004 

I 

000474 

mggtp 

aooo 

I 

00001 1 

0003 

0001 50 

RPLINE 

0004 

I 

000475 

NPVALf 

0004 

1 

ornsns 

0006 

001§23 

NTDUM 

0006 

I 

O01524 

NTREG 

0004 

R 

ones 1 s 

0006 

R 

Ofl I 5 3 4 

PD 

0003 

R 

000174 

PL 

0004 

R 

002425 

0004 

R 

002455 

POWT 

0004 

R 

002457 

POV/0 

0004 

R 

0 0 ? 4 6 l 

0007 

R 

000004 

PR 

0004 

R 

002467 

PRATC 

0006 

R 

00J535 

QQQ4 

R 

002477 

PTO 

0006 

R 

001545 

pu 

0004 

R 

002501 


NAME) 


17 5 6 

0001 


0005*6 

3CL 

0001 , 


000532^ 

*$L 

AREAL 

ono6 

R 

OOOOOO 

AR£G 

0006 

R 

001440'’ 

AREqMX 

AT 0 

0004 

R 

000031 

ATDN02 

0004 

R 

000033 

cc 

CEF2 

0003 

R 

000024 

CL 

0004 

R 

000057 

CmAN 

CP2 

0004 

R 

nOO 1 I rj 

CSTAR 

0004 

R ^0 DO 1 2 0 

C$1 

CVSL 

0006 

R 

001460 

Cl 

0006 

R 

001461 

C2 

PELT 

„ 0004 

R 

0OOJ5I 

DELTF „ 

0006 

x 

001464 


DMCl 

C006 

R 

001 46 t 

0MC2 

00 0 6 


001 462 

OwCa 

dpto 

0004 

R 

000176 

DRPMT 

0004 

R 

000200 

DTP 

DflOX 

0004 

R 

000230 

ETAT 

Q006 

R 

001465 

FRE5 

G 

0004 

R 

000232 

GAM 

. 0003 

R 

000122 

<?c 

I 

0005 

1 

oooono 

1 ACCpR 

0004 

T 

000236 

icham 

IOUMJ I 

0006 

l 

001 son 

IOUMjP_ 

0006 

-L 

001501 

IqUmJJ 

1PL0T 

C005 

1 

000002 

IPR1NT 

000 6 

1 

001500 

’ IPROP 

JPEGPR 

noo4 

I 

000263 

I SP 

0004 

I. 

000273 

is! 

I s 

0006 

r 

00 1 5Q 1 

JJ 

0004 

R 

000302 

ka y 

KAYH 

000 4 

R 

0003 22 

KAY2 . . „ 

0004 


000332 

KA Y 3 

KAY6 

0004 

R 

000372 

K A Y 7 

0004 

R 

000402 

KA Y8 

lregdn 

0006 

1 

001512 

LREGUP _ . 

_ 0004 

1 

000442 

HR 

MW1 

0004 

r 

000464 

MHZ 

'"OOO 4 

1 

000472 

NCH AH' 

NN 

0003 

t 

000 123 

model 

0003 

i 

0001 47 

NPIPL 

NPVALO 

noa6 

1 

00152? 

nReg 

0006 

l 

001 523 

NT 

OPVALF 

0004 

R 

001455 

OPVALO 

0004 

n 

002415 

PCKAH 

PMAKf 

0004 

R 

002445 

PHR 

0004 

ft 

002453 

Popp 

P0W1 

0004 

ft 

002463 

P0N2 

0004 

R 

002465 

P0^3 

PREF 

nno? 

R 

000007 

PS 

0003 

R 

004 1 1 4 

PrEnP 

PWD 

00 0 4 

P 

002503 

pw l 

0004 

f? 

002505 

p^2 



YU 


0006 

POOH 

0003 

.000*} 

000*4 

-JOOEH 

000*4 

— 0-00 u * 
0006 
-0007 


R 0015*46 

R QP 250t- 
R 0100*4*4 
R 002535 
R 00255*4 
R 00^570 
R 00*4532 
R 00*1602’ 
r 001600 
R 000006 


QRE6 

RGAS 

5 I N ALP 
TC* 

T J HPUL 

TTO 

WcHAM 

WOX- — 

WW 

ZS 


0^.5 

m 


56 Q I 
RHOL, 
6o SPREG 


R 0025*43 TG A 5 
R 0025 6 TMVALF 
R 00*4*172 U 
R 0101 15 WDOTL 
R- 000002 tfR 
R 00*4622 X 1 Tp 


0006 R 
_ 000*1 R _ 
00p6 R 
OOP 3 R 
000*4 R 
000*4 R 
000*4 R 
„OQ07.,R 
POOH R 


001556 
QP2517 
001570 
010070 
00352*4 
00*1*47*4 
00*15*42 
000005 
00*1 6 2*1 


GlDUM 
_RPMP 
"T AUREG 
THETA 
THVALO 
VM AN 
WFUEL 
-WS 
XLTD 


R 001557 
.5.PQ2520 
R 00252*4 
R 0 1 0 J 1 <4 
R 00*4*46*4 
R 00*451*4 
R 00*4552 
* .00*4612 
R 017755 


m- 

tike 

70RP 

VOLC 

«!MJ 

ntoNpZ. 

z 


R 00I5S7 Q20UM 
R 002522 RPHT 
R 002530 Tc 1 

R 002553 TjHE£_ 
R 00*4*166 ToRT 

R_ OO052R.I5 

R 00*1572 HnOJ 
R01_8Q3.5 _ K7F.H g _ 
R 000003 ZR 


OOlOl 
-QD1Q3 
00| O 1 ' 
.00105. 
00 J 05 
-CIO 1 0.5... 
00106 
-00)06 
0010 * 
-oojo* 
0010 * 


00106 
-0010.7.. 
00110 
001 10 
oo i to 


SUBROUTINE *REgL REGLOnol 

REAL KAT«l':Arl» K AY2.KAT3,KAY*),!<At5,KAY6,KAY7«KAYetKAYP,KAYltl,KAVll REGL0002. 
DIMENSION KOUNTU) RESL00C3 

. COMMON/ ALECOM/ AREAL < 20) , CL ( 20 1 »DELT , 0 I AL t 20 ) t FRLI20> ,G«GC, . REglOOO0_. 

1N0DEU20) ,NPIPL,NPL1NE(20) »PL<20, 100) ,P7EMp{20, 100) ,RH0L<8) , REGL0005 

__ 25 1 NALP ££01#THETA(20? » T I ME » W00TL120 , 1 00 1 , WTEMP t SO , 1 P01 , z 1 20 , I OQ 1 REGL.00 0 ^ 

COMMON/CHaM 0R/ARCA(8,2) , AREAC ( 8 I , A TO , ftTON 02 ( 2 ) » CC t B ) , CCC < 8 > » REGL0007 

lCEFl(2),CEF2{2) # CMANt8,2),CP(2)»CPl»CP216),cSTARt81 9 CSl,CS2(6), . REGL0008 

2CV48.2) ,cVEL42> »DELTF,D1AT(21 ,DPKaNC 8,2) ,0PT0(2J (0RPMTI2) ,DT0(2) , REGLOOO? 
■ < 3DW(61,OWFUEL18>iDnoX(e),ETATt2) s 6AMt2) 3 GRt2),lcHAM(8,2),lENG, _ _ REGL0010.. 
HIPUMJ 12) 1 JPUM0C2) »ISP< 8) , 1 S 1 , IS2(6) ,)C«Y<8) , KAY 1(0 J ,KAY2{8 ) , REGL001 1 

-.5KAYJ18UKAI*M0> »KrtY5t8)*KflY6t0). i KAY7je.l>KtYai81 S KAY?t0) ,JlAY_I0l8j. J ,.XEeL00l2_ 

6KAY1 110) ,MR18> »MR| ,HW<8) ,MW| ,MW2(6) ,NcH AM , NCOEF , NGGTP s NP V ALF ( 8 ) , REGL0013 
7NPYALOJ3) 1 OPVALF(8,0QJ 9 0PVAL0{8„6n) ,PcHAMtB),PMAN(8,2) ,PMR(6), REGLOO 10 

0POWP12) ,P0WT<2) *P0WO{2) ,P0»M2> ,P0W2(2) , P0w3 1 2 > e PR A TC < 8 ) i PTO ( 2 ) , REGLOO 1 5 
?PW0t2) »PWt C 2 ) ,PW2<2) *RQAS10> ,RPMP .RRMpp ( 2 ) ,RPMT(2) ,Tcl6) tTCl ». . REGL 0016 . 

®TC 2 ( 6 > »TG AS ( 8 ) , T I MeF t T I MPUL ( 8 1 .TKVALF (8 ,60) „ THV ALO < 6 , 60 ) ,T0RP(2) , REGL00I7 
_Jl 70 RIi J 2 U-tiai 2 J 1 lHZl Jl Vl?ANtQ» 2 ) ! ,yDLCiaL 9 W{ 6 ). l) WCHAK<aj.*«FUElaaJU j?EGLODia_ 

BW1NJI8 |2) ,WNOZI 8) ,WOX (8 ) ,HTDN0Z(B),XITP<2) , ALTO ( 2) REGLOO 1? 

C0MM0N/FLA5S/IACCPR>ICKAMP»IPRtNT,lRCGPR»ITURBN, IPLOT . _ REGL0020 . 

COHMON/REGLCM/AREGia, 100) , AREGMX (8 ) ,AR£GP<8 > tOMCl , DMC 2 t D«C 3 < 0 MC 8 . REG LOO 21 
1DFW.FREG (8) t FVYi IDUMI , loOMI I 9 IDUMIP»I0UMJJ,LREG0N(8) ,LREGUP<81, __ REGL0022. 
2NREG 0 NTdUM,NTREG(B> ,PD,PREF(B> ,PU,QREG<0> , Q I DU M , Q 2D UM , SPReG ( 8 » , REGLOO 23 

aiAUREGm .w« — BIJGLOOZi- 

COMMON/VALUES/GRHO , ARHO.SR tZR ,PR ,Y4S , ZS » PS REGL0025 

_ EQUIVALENCE-IOMC I ,C1 ) , l0Mc2»C2).,tDMC3,C3) iCDMC'IoCR) .UOyMliDt REGL0026_ 

1 < IDUHI I » 1 1 ) , t IDUKIP, IPROP ) , ( IDUKJJ, JJ) , ( NTDUM , NT ) , REGL0027 

2 fQlOUM.Ql) , ( Q20UM ,Q2 ) . PEGL002Q__ 

DATA K0UNT/8®0/ REGL0029 

D O 9 0 lol ■ NRE G REGL0030 

KOUNt7i1=K0UNT ( 1)4-1 REGL003I 

. .,_NT“I - - - — REGL0032_. 

I 1 3 l_REGON ( I } REGL0033 

IPROPpNPLINEUD REGL0Q3fi 

CALL VAL«t! »1 »IPR0P»2) REGL0035 

r 1 -c-yis-* A r F AL ( 111 /CL 4111 ®! GoRHQ LI IPRO P ) »Z [ 1I «l)~G C» PS®l*4*4»0"6oRH0L RE GL.0Q36 

1 CIPROP)oZS)»G/CL(I J )oWS«SINALP(H )«DELT + FRLUI )oHS«ABS(Y4S) oDELT/ 2 0 REGL0O37 
— 2/OlAL l 1 I 1/RH0L5 !PRoP)/AREAL{ I I 1 P 1 2 « 0 — ...REGL0D38 

C2»-AREAL ( H )®GCol*4*4»0/CL (II) REGLO03? 

I I =LREGUP 1 1 ) - - REGLOO0O 

JJaNOOEL(H) REGLOO*) 1 

IPRQP«tNPL5NEUJ I . BEJiLO.O±Z 


REGL0D38_ 

REGL0037 

REGLOO 00 

REGLOO*) 1 
REG 1.0 082 
REGLOO03 


’CALL VAL IPROP r*> REGLOO03 

C3»-HR*AREAL( I n/CLC 1 1 ) ®(G»RHOLt I PROP ) »Z ( I J , JJ)»GCoPRo 1 0*4. 0-G *RHO LRE GLO O0*i 



114 


0006 

R 

00! 546 

QREG 

0006 

R 


QJ 

000* 

R 

QO J 55 6 

0 iDUM 

0006 

R 

00 1 SS7 

A 

000* 

R 

DOOM 

R 

Q025O7 

RGAS 

0003 

R 

VP 3 ' 

RHQJL 

- 0004. 

R 

0025 17_ 

R PM P 

0OQ5. 

, B 

002529 



ooo a_ 

A 

0003 

R 

OlOnRH 

sinalp 

0006 

R 

0015*0 

SPREG 

000* 

R 

OCU57o 

TAUREG 

0004 

R 

002524 

TC^ 

0004 

R 

0004 

R 

002535 

7 CZ 

0004 

R 

0fiZ54 3 

TGA5 

0003 

R 

0 ! i?07 0 

THETA 

0003 

R 

010) J4 

TIME 

0004 

R 

0004 

R 

002554 

T I MPUL 

0004 

R 

0025*4 

tmvalf 

000 4 

R 

003524 

thvalo 

0004 

R 

n04t)A«t 

TORP 

0004 

R 

GO 0 4 

R 

004n70 

TTO 

0004 

R 

D044 72 

u 

0004 

R 

004474 

vman 

0004 

R 

004514 

VOLC 

0004 

8 

000*1 

R 

004532 

WcHAH 

0003 

R 

0! 01 15 

WDOTL 

0004 

R 

004542 

wtuel 

0004 

R 

004552 

WINJ 

0004 

R 

.™.QQ04- 

■ n 

004A02 

wox. - - 

..0007 

R- 

.000002 

WR 

0007 . 

.R 

OOOGQS. 

.as 

0004 

R 

004612. 

HYoNoZ.. - 

_._90a3. 

Q 

0006 

R 

001600 

WW 

0004 

R 

004*22 

XITP 

0004 

R 

004624 

XLTO 

0003 

R 

017755 

Z 

0007 

n 

-.00 0 7 

R 

oonoo* 

ZS 













- 

- 


001557 

002522 


002534 

002553 

0044*6 

004524 

004572 

O.UJD1Sl 


02DUH 

RPMT 


n 000003 zr 


TCt 

TI»EL 
TORT 
H . _ 
»N°Z 
B TFm £- 


ooiol 

1 9 

. _ QD 1 0 3 

2 ♦ 

00104 

3 ® 

00105 

46 

00105 

5 « 

. on(nS 

6 A . 

00 106 

7 ® 

00 106 

So 

00106 

9 6 

--OOlO* _ 

iOtt 

0010 * 

1 U 


SUBrOUTiNE regl 


OUTiNE RtGL REGLOnOl 

REAL KAY (KAY 1 , K A y2 ,K A Y3 * K A Y4 ,K A Y5 , KA Y6 , K A Y7 , K A YS (K A Y9 , KA Y J 0 , K A Y 1 I REGL000 2 
DIMENSION KOUNT(r) RE5LP003 

REGL0004. 
REGL0005 
REfil-O OOfe 
REGL0007 
REgLOOOB 
REGL0009 
REGLOOIO. 
REGLOOI 1 
..EC G 10 9 L?_ 
REGLOOI 3 
REG10014 
REGLOOI 5 
REGLOOI* 


-OXU-O*- 


00106 
-0010* . 
00|06 
..00106 . .. 
00106 

-00-104 

0010* 

00107 

00110 
00110 
001 10 

60 1 I / 

Q0J1? 

oo n 2 

00112 

00113 
_MJLi§ 


13# 

He 

1 5 o 
it* 
17* 

-IHa- 

19® 

20 * 

2 I o 
22 ® 
23 o 

^ 6 * 
27 * 
20 o 
29 ® 

-3Q4- 


UiriEKSJUR m/uumbi 

. COMMON/ ALLCOM/ AREAL (20) , CL <201 . DELT , 0 1 AL < 20 ) , F RL t 20 ) , G ,GC , 

1 NOOEL I 2r* ( ,NPJPL,NPl 1NE(20) ,PL(20 t 100) , PTEMp ( 20 , I 00 ) ,RHOL ( 8) * 
2S tim.EI 201* THETA (20! ,IIME *WDOTL120 , 1 Oo l , «T£KP ( 2°, 1 QQ1 ,7 1?0* IC 
rftMuiui/ruiHnR/ARrAffiJ) . artat ifti .am . ATnwn» f .rrffli .rfrffll . 


- l - Zflu -. _ 


4 IpUM MZhlrUngUJ jlbP^Sl 

-SKAYAia) .KAYRO^KAYStg) ,KAV* ( 8 ) *K A Y7 I 8.} .SAYS.! OAjKA Y9 101 *£mOI «JL^. 

6KAY1 1 (8) ,MR(0> *KR1 ,HH(8) ,M«1 ,MW2(A> , McHAH , NCOEF , MGGTP , NP V A LF ( 8 ) * 
7NPVALO(B),OPVALF(8 ) *0),OPVALO(8,60) .PcHAMIe) » PH AM (8, 2 ) S PMR<6) , 

6P0WPI2) ,P0WT(2) ,P0)V0<2) ,P0K1 (2) ,P0H2<2) , P0W3 « 2 ) , PR ATC ( 8 ) ,PT0(2) , 

9PW0 (2) ,P»Y1 ( 2) ,P!V2<2) ,RGAS < 3 > , R PHP , RPMPD ( 2 ) ,RP MT ( 2 1 » Tc ( 81 *TC 1 , . 

°TC2 ( 6 ) * T G A 5 ( 8 ) ,TIMEF *TIMPUL (8 I ,TH V ALF < 8 , *0 ) , TMV ALO ( 8 , 60) ,T0RP(2) , REGLOOI 7 

.-ATQ8XI2 L.J.I9.12J til I ZJ aV-BAN 16*2) , Y0LC1 B 1.* W ( 4}., HCHAtl ( £Ll*Wf UEJ.4 Si*.. REGLOQl £ 

BWINJI 0 *2) ,»NOZ I B) »HOX (8) »WT0N0Zt 0) * X I TP t 2 ) o XLTD (2) REGLOOI 9 

_ CQHMON/FLAGS/lACCPR.ICHAMP.lPRlNT.HEGPR, I7URBN.IPL0T . REGL0020 

COMMON/REGLCM/AREGt8,loO) ,AREGMX(8) ,ARCGP(0) *DMC1 *DMC2 ,DMc 3,DHC4. REGL002I 
1DFH ,FREG (6) ,FH, IDUMI , loUNI I , IDUMIP# IOUMJ^ jLREGDN ( 8) ,LREGUp(8 1 , REGL0022 

2NREG.NT0UM*NTREG< 8) ,P0,PREF«e ) *PU»QREGO) ,QloUM,02DUM,SPREG(e) * REGL0023 
jjAVerc/fJ**# — r r cl c o 2 4 

d0.*‘M0N//ALOZS/52hS,7R.-'0,'JfR»2R»?R.'V5.2J »PS 

EQUIVALENCE I0MC1 »C1 ) ,(0MC2,C2) »(DMC3,C3J ttOMCR.CH) , IIOOMI (D* REGL0024 
( IDUMI I 1 1 I ) * nOUMJP,IPROP) * ( IDUHJJ* JJ) * (NYDUMjNT) , REGL0027 


1 

_ 2 


IQ1DUM.Q1 t,<Q2DUM,Q2) 
DATA KOUNT/0«O/ 

DO 9 0 _ I ?i i N RE G. 


00120 

00121. . 

00122 

00123 _ 

00124 
00J2& 

31 o 
329 
33 o 
. 34® 

35 o 

36 

00125 

37® 

00125. 

_38« 

0012* 

39 o 

00127 . 

40 o 

00130 

41® 

: ooiJl 

42(5™. 

00132 

43® 

' 00133 

44« 


XOUNT ( I ) “(COUNT ( I>*1 
NT “ 1 

I I "LREGON t I ) 

IPR0P = NPLINE U 1 ) 

CALL V AL ( I I *1 *IPR0P*2> 


REGL0028. 

REGL0029 
REGL0030 


REGL003I 

_ _ REGL0032 

REGU0033 
REGL0034 

VAL(1^*(*(PRPP®2^ RIGL0035 

C 1 "-HS~AREAL.« i n/CL t T 1 io t G*RHQ L(IP ROP ) ?.? ( U e.j.1— 8 C » PSeJJjj. Q ■ Gc.RHQ L-M Gj,003g_ 
1 IIPROP ) «ZS)-G/CL t I I IoWSoSINALPU I ) oDELT+FRL ( II ) oHS# ABS f WS ) oD EL T / 2 , R EGLOO 37 
._2/DULUl>/PH0LUPR0Pl/AREALUIl9l2.0 -- - 

C2“-AREAL<H)e6C.H‘t,0/CL(II ) ^GL0039 

II-LREGUPII) - — 

vt JbNODEL (1(1 RCGL004 2 

CALL VALtI I ,JJ»!PROP,D "£61.004 3 

C3.-#S*lR£*LIIM/CL(in«|G‘»H0L(IPft!)P(«Z(I I , J J ) " GC# Pfl » H'f A 0« G 4 fifi/U ft f 4! 



00133 



1 < tPROP 1 oZR>*G/CL< I 1 ) «Y'R«SINALP< I 1 1 *0ELT + FRL( I 11 «WR » ABS f »(R ) / 2 , 0/ 

reglcd^b 

00133 

^6* 


201 AL (1 1 )» {2 tO/HKOLM PROP) /AREAL < 1 I ) *DELT 

REGL0D^6 

001 JO 

<»7c 


C4”AREAL tit > »GC/CL ( 1 l 1 « 1 44 . 0 

REGLnnH7 

00135 



P0*-c3/< AREG{ 1 ,NT) «CC ( 1PR0P1+C4 1 

REGi.9098 

00136 

<49 ft 


WW*-C3-C4ePU 

REGL00M9 

00137 

50 o 


P0=-Cl/C2-WW/C2 

REGL0050 

OOHO 

51 o 


IF < IREGPR.NE.O.AND.MOD(KOUNT(I ) .IREGPRl .EQ.OICALL WRITE <11 > 

REGLOOSi 

00142 

52a 

* 

IF {Po/PU.LT.pRATcUPROP)) GO To SO 

REGL0052 

00)44 

53a 


in continue 

REGL 0053 

00145 

sn 


Ql**-tww/c2 + cl/c2> 

REGLA05* 

00146 

55* 


Q2«-<»m/C4+C3/C4) 

REGL0D55 

00147 

56a 


FW.VtW.WW-l AREG ( I ,NT> »ccc< IPR0P))*«2oKAY< I PR OP 1 ♦ < A Y 4 (I pRQP 1 • ( Q 1 * » 

RHGL0056 

00J47 

57* 


1 K A Y? ( IPR0P)«Q2®»<KaY?< 1PR0P)®KAY2{ IPROP) ) -»Q 1 »«KA / Y6< 1PR0P)*Q29* 

REGL00S7 

.00(47 

580 


2 <KAY2< IPR0PJ7KAY ( IpRoP 1 > > 

R E GLG05 8 

00150 

59c 


DFW = 2.0«WW“( AREG< 1 ,NT ) «CcC ( ! PROP 11 # «2*K A Y < j PROP >»KAY4(tpRoP)° < Q 2 * »R£ GL005 9 

00150 

60® 


1<2.0/KAYS<IPR0P)>«KAY4 (I PROP 1 «Q I **K A YS < !PR0P)o(**l.O/C2>*Qie«KAY9 

REGL0060 

00150 

61 o 


2< IPROP) »2.0*KAY2UpRoP|/K AY < JPROP) /O2o6KAY0< IPROP )c(»1.0/'C4).Q2o* 

REG L 00 6 1 

00150 

62* 


3< 1 .0/KAy5 < IPROP)) ®KAy 6<I PROP) *0 1««KAY7< IPROP )«(-I.0/C2)-Qlo«KAY6 

REGL0062 

00150 

6 3 o 


4< IPROP ) /KAY5< IPROP 1/Q2.4K A Y7 (IPROP ) o (-1 ,0/c4 1) 

REG10063 

00.15 L . 

-6R* 


«Y»°Y<W-F\Y/DFVY 

REGL006^ 

00152 

6Sc 


Iff IRE«PR.NE.O.AN{).MOo(KOUNTf I ) , IR eOPR) . EG), 0) CALL WRITE (12) 

REGL0065 

00154 

66a 


IF < ABS(FW/DFW) .LT. 0,001 J GO TO 30 

REG1.0066 

00156 

6 7 n 


GO TO 10 

REGL0067 

-00J57 

66o 


3n CONTINUE 

REGL0068 

00160 

69a 


PU»-WW/C4-C3/C4 

REGL006? 

00161 - 

70* 


Ppsi»WVit/C2*Cl/C2 

REGL007Q 

00 162 

7 i * 


50 CONTINUE 

REGL007 ) 

00163 

72a 


NT “NTREG ( I ) 

REGL0072 

00164 

73a 


AREG ( I ,NT)«AREGMX( I )-QREG( I ) /SPREG< 1 ) e t (P d-PREF ( I ) >«AREGP< I >- 

REGU0073 

00164 

7*U 

* 

1 FREG ( 1 1 > 

REGL007R 

00165 

75® 


!F(AREG(J, N T),LT,0.0)AREG<I,NT)»0,0 

REGL0075 

—004-67 — 

- -7 6a 


. IFCAREGtl.NTl oGT.AREGNX (I )) ARES 1 1 » NT ) n AREGM.X 11) _ 

REGL0076 _ 

00 1 7 1 

77a 


NT=NTREG( I )-l 

REGL 0077 

00)72 

78* 


IF < 1RCGPR .NE.O. AND. MOD (COUNT! I ) , I REG PR ) .EQ.OICaLL WR ITE 1 1 3 > 

REGL0078 

00174 

79 o 


00 70 NNn 1 »NT 

REG1007? 

00177 

00a 


AREG ( I pNN) b AREGUiNN*1) 

REGUflaflO 

00200 

8 1 a 


70 CONTINUE 

REGIOO0 l 

.430402 

82a 


-«TEMP(1I,JJ)=WW 

REGtD082_ 

00203 

83a 

' 

PTEMP ( I I ,JJ)*PU 

REGL0083 

00204 

- 8*10 


II*LREG0N(I) 

REGLOOQ^ „ 

00205 

8 5a 


WTEMP( 1 I , 1>«WW 

REGL0085 

00206 

86 6 


PTEMP ( 1 I , 1)°P0 

REGL0066 

00207 

87 o 


?n CONTINUE 

REGL0087 

_aozj-L- 

- -£3* 

— 

RETURN 

^REcLOoee _ 

00212 

89a 


END 

REGL0089 

— 

end of 

UNIVAc Jl08 fortran V COMPILATION. o .DIAGNOSTIC* MESSAGE 1 S ) 



.. _ REGL SYMBOLIC 

REGL CODE RELOCATABLE 


31 AUG 71 . 12535;l8 

31 AUG 71 12:35: 10 


0 0154 1756 . 

1 01544314 

0 0150 *1370 


1JL 

08 

10 


8? 

T 

51 


IOELeTeDJ. 

IOeCeTeOI 



5.4.11 BKINS 


this compilation was oone on 02 sep 7t at 11152:22 


SUBROUTINE RK1NS ENTRY POINT OP0170 

STORAGE USED (BLOCK, NaMEj LENGTH > 

. .0001 *COI)E 000216 

OOOO »DATA 000040 

0002 OBLANK . OOOOOO . 


EXTERNAL REFERENCES (BLOCK, NAME1 

0003 NERR3S. . _ 


storage assignment for variables ( b lock, type* relative location, namei 

0001 000023 1 10G . 0001 . 0001 12 110L . OOOl OODOS 1 ) 1 24G 

0001 000tl37 30L OOOl 0000^2 50L 0000 R 000003 A 

-OlOOQ. ft.o0nflo5 COR 00Q0_.I 000002. I OOQCL. I OOOOQ1-X _ 


OOlOl Jo SUBROUTINE RK I NS ( XpP ,HOP , V AR ,DER ,0 AUX , N * TEMPS 1 

Onin3 2 A , BLUE NS Lmu-VA RJL1 1 aJIE RJULJ_tl£«P Si3»JUuCl2> 

£ 0010*1 3o EOUlVALENCE(CDP,C) 

00105 it e_ . „ . NNpN . _ 

00106 5# K*=0 

00107 - 6* - . DO 10 I a 1 , NN 

00112 7 « TEMPS ( 2 , 1 1 =VAR 1 1 ) 

QXIJUL 3 6 A T EH£ SLL3UJ.2C.E51U 

001 1H 9, 10 CONTINUE 

00114 ... lOo C0P»hdP/2,D0_ „ 

00117 ll« A»C(1) 

00120 12a.. . „ 30 CONTINUE ... ... 

00 1 2 1 13, XDPoXDP+CDP 

004.22 lif a SO.. CONTINUE. 


00123 

15a 


DO 70 I«1 ,NN 

00126. _ 

1 6 » 


VAR(U»TEhPS(2*IL*A*DER<n . 

00127 

17a 

70 

CONTINUE 

00131. 

13? __ 


CALL D A U X 

00132 

1 9 a 


K«K a 1 

00133 

20o 


IF (K.EQ.3) GO TO l 1 0 

00 135 

Z 1 o 


DO ?0 lot r NN 

1 D01 4Q - 

22? 


TEMPS { 3 > I ) ®TEMPS (3,1 >+2«0*DERO J . 

00141 

23a 

90 

CONTINUE 

t 00*43 

24a . 


IF ( K • E Q o ! ) GO To 50 

0014& 

2 5 o 


AoHDP 

^ JOQUi£ 


_ „ u 

GO TO 30 ... 

00147 

27a 

i in 

CONTINUE 

00150 

2 Q o - 


A“ A/6 ♦ 0 



OOOl. ..000076 1 36 Q IJ0Q! Q 0.0.132.. 1.525. 

0000 R 00000*1 B 0000 R 000005 C 

Q0Do_.i_xiaQni3O.jin 


RKtNOOOl 

RK ; N00 02 

RK I N0003 

RKlNOOOi 

RK I N0005 1 

RK in 000 6 . 

RK I N0007 

RKt nOOOB 

RK I NOOO 9 

RKINOOIO 

RKINOOI 1 

RK t NQO { 2 

RKIN00I3 

RK f NOO 1 4 

RK 1 NOO I 5 

RK ] NOO 1 6 _ 

RK I NOO 1 7 

_ RKIN0018 

RK I NOO 1 9 

RK ; N002 0 

RK I N002 l 

, RK 3 N0022 

RK I N0023 

RKIN0024 

RK1N002S 

RK I N0026 

RK I N0027 

RK1N0028 _ 




00151 

29* 

DO 130 1*1 * NN 

0015*1 

30* 

CCU-TEHPSC2, I > 

00 1 55 

3 1* . 

* C < 2 ) nTEMPS l 1 » 1 ) 

00156 

32* 

9*<TEMPS<3* I ) + DFR ( ] ) > * A 

00157 

33* 

CDP*CD P *B 

00160 

3R* 

VAR( 1 |*C( 1) 

00161 

35* 

TEMPS ( I f I )»cm 

00162 

36 o 

130 CONTINUE 

0016*1 

37* 

call daux 

00165 

38* 

Return 

00166 

39* 

END 


END OF UMIVAC MOe FORTRAN V COMplLATlON. 
RKINS SYMBOLIC 

RKIns code relocatable 


RKINH029 
RKIN0030 
RKIN0031 
RK INP032 
RK IN0033 
R K J NPO 3 R 
RK I N003S 
RKIN0036 
RKIN0037 
RKIN0039 
RK IN0039 

0 «Dt AGNOSTIC* MESSAGFfS) 


31 

AUG 

71 1 2? 35 ; 1 9 

0 

0 1 5 H 5 706 

1 H 

39 

(DELETED) 

3 1 

AUG 

71 12S35119 

1 

0 1 S^ 6750 


! 

(DELETED! 




a 

0 1 5M7 n O0 

1 s 

16 




118 


5.4.12 VAL 

THJS COMPILATION WAS DONE ON 02 SEP 71 AT US52I23 


SUBROUTINE VAL ENTRY POINT 00016* 

.sTORage_ usfo (block, _na_he,_ length) 


0001 
0000 
_ 0002 
0003 


• CODE . 

• DATA 
•BLANK 
ALLCOH 


000175 
0000 I 5 
000000 
023675 


0.00.4 VALUES. _QQ0D1O. _ 


EXTERNAL REFERENCES (BLOCK. NAHE) 


..0005 

0006 


-NERR2S 

NERR3S 


STORAGE ASSIGNMENT FOR" VARIABLES (BLOCK. TYPE, RELATIVE LOCATION, NAME) 


0001 000027 ICL 

_0D03 R 00002H CL .. 

0003 R 000122 GC 

_QD03 R 00017*1 PL - — 

0003 R 0l00*t*t SINALP 

QQQ4 R _0QQ005. BS — 


0001 

0003 

0004 
DOOM 
0003 

.0 CLQ3_.ft.jm03 5_)lIEflP 


000106 SOL 
S_00005.0 DELT ... 
R OOCOOO GRHO 
R 000004 PR„ . 

R OlOOTO THETA 


0001 000154 50L 

0003 R 000051 DIAL 

0003 1 000123 NODEL 

0004 R OOnOfl 7 PS . 
0003 R 010114 TIME 

nOQ3_R._SJ.Z7S.l_2 


0003 R 000000 AREAL 0004 

0003 R _000075_ FRL 0003 

0003 I 000147 NPIPL 0003 

_000 3_JJ. 0041 I 4. PTE Mg 0003, 

0003 R 010115 WDOTL 0004 

0004 R 000003 ZR 0004 


R 000001 ARHO 
R 000121 G 


I 000150 NpLiNE 

R 01 0034 RhOL 

R 000002 SR 
R 000006 Zs 


oolol 

-00103. 


I 0 

_2i_ 


00103 

00103 

00104 
_ 00105. 

00106 

00107... 

3o 

St 
60 
7 t> 

8 9 

00110 

00111 

oon 1 

00112. 

00113 
00 1 i 3 

9® 

1 0 9 „ 
! ] 0 

13p 

00119 



l$o . 

' _ ooi 15 

i 6 * 

00116 


■. 00 116. 

. ,4 8 * 

00117 , 

!?o 

^ .00120,-. 

. Z Oo 

001 ZE 

21 6 

. . 00>2l 

22* 


SUBROUTINE VAL ( I I , JJ , I PROP , I GOTO ) 

COMmon/a LLG OH L a A L 1 20.1 . C L12.Q )_» D.E.LI ,.D_I_A UL ?- 2Jj£B LJL2.Q 1 JJ&4.S.C* 


VAL 

VAl 


IN0DEL(201 .NP1PL .NPLINE (20) , PL (20, 100) , PTEMp ( 20 , 1 00 ) , RHOL ( 8 ) , VAL 

2S1HALP?20) s THETA (20) , T 1 ME , WDOTL ( 20 , 1 Or* ) , WTEMP < 20 , 1 00 ) »Z(20.J00). VAl. 

COM MON /VALUES /GRHO, ARHO .WR.2R.PR.WS.2s.PS VAL 

GRH0»G»RHD^UPR0P)/GC/144.0 — — .VAL. 

ARHOnRHOL t 1PR0P) oAREAL ( 1 I ) VA L 

5CL.TQ ;±Qfu3Q,!0),Ifi0T0 m. 

10 CONT’NUC VAL 

WR-'(WDOTL<(l»JJ)- T HETAnili , CL<ll)'( vf D0TL(ll9JJ)-WDOTL(II,jJ < 'l)))/( v /<L 
1 * . O + THET A ( 1 I ) 4(W00TL( I I ,JJ> -WDOTL 1 I 1 ,JJ-I t ) /RHOL ( I PROP ) /AREAL ( I I ) ) VAL 
zrcz< u , jj) -theta ( u )»iy(r/arho+clu i ) )»(Z( n (ijvD-zd 1 ,jj-m val. 

PRopL( II , J J 1 »GPHO 0 Z ( I 1 , JJ) -THETa ! I I ) « (WR/ARHO+CL ( 1 1 ) > » (PL ( ! I . J J ) + VAL 

l.GRHO«ZU I »JJI - PL ( l? » JJr 1 )-ORH0oZ 1 1 I ,JJ«I ) ) - G R_H 0 * Z R_ _VAL. 

GO TO IS0.S0.30) , I GOTO VAl 

30 CONTINUE ' y/*> 

wsb-(wootl<h.jj) -theta hi j»clu i xxwootu i i ,jj>-«dotl( n . jJ*n ) )/«val 

1 1 .0-THETA( I I >« (WDOJL ( I I , JJ ) -WDOTL ( I I , jJ+ 1 ) ) /RhOL U PROP ) /areal ( ii ) >val 
ZS»Z( II ,JJ)*THETA( II >0(WS/ARH0-CLU I ) )«(Z(I I ,JJ)»Z(!I ,JJ*1 >) VAl 

PScPL ( 1 I »JJ1 *GPHO*Z( I I ,JJ)*THETa 1 1 1 )o(WS/ARHO-cL( II ) |»(PL( u . JJ)« VAL 
I GRHOo Z ( I I , JJl-PL ( It .JJ*1 ) *GRH0°Z t I I , Jj+1 ) )~GRHO»ZS VAL 

50 CONTINUE VAL 


0001 

.£0J12_ 


0003 

0001. 

0005 

0006 
0007 
0006 
000 ? 
00 ! 0 _ 
00) r 

OOIZ 
0013 
00 1 4 _ 

0015 

0016 
0017 
00 I 8 

0019 

0020 
002 ! 
0022 



6TT 


00122 

00123 


23® 

2**o 


RETURN 

END 


VAL 0023 
VAl 0024 


END OF UN t V AC U08 FORTRAN V COMPILATION# 
VAL SYMBOLIC 

val code Relocatable 


0 ©DIAGNOSTIC^ MESSAGE(S) 


31 

AUG 

71 

12 : 35:21 

0 

01547340 

14 

24 

<OEI-ETeD ) 

31 

AUG 

71 

i 2:3^:2i 

l 

Ol5&r)OAO 

24 

1 

(DELeTfD) 





n 

01S5nl 10 

14 

15 




5.4.13 VALVEL 


THIS COMPILATION WAS DONE ON 02 SEP 71 AT t!1S2;2S 


—Subroutine valvel entry point 000337 


SIORaSE USeo (BLOCK, RAME*. LENGTH ) 


0001 *CODE 000347 

0000 « D A T A 000046 

0002 «BLaNK 000000 

0003 ALLCOM 023675 

. _ 00 OH. VALUES . 000010 

OOOS VALVCM 002021 


EXTERNAL REFERENCES (BLOCK, NAME) 

0007 VAL . . 

0010 SQRT 

001 t - NERR3S - 


N» 

o 


STORAGE ASSIGNMENT for VARIABLES (BLOCK, TYPE, relative LOCATION, NAHE) 


OOOS ...00Q25I .lot ... 

0003 R 000024 CL 

— aO.OjQ-R.-Q.QOg LO-jCS 

0003 R 00012! G 
,_0000 I 000002 1ER0P 
0003 I 000147 NPIPL 
J3004 R 000004 PR 
0003 R 01C070 THETA 

— flOM-R-OOnOOS .WS 

0003 R 0 1 7755 Z 


0001 000004 1076 

0000 R 000003 cl 
.naQU_R_OQQfiJLl C6 

0003 R 000122 GC 
0000 I 000005 JJ 

0003 I 000150 NPLINE 

0004 R. 000007 PS 

0003 Ft 0101(4 TIME 

J3QJ03 R 014035 WIEHP 

0004 R 000003 ZR 


0001 000274 30L 

0000 R 000004 C 2 
0On3.JR_Oa0O5£l„JQ£LI 

0004 R OOOOPO GRHO 

. 0005 I oonooo LVDN 

0005 1 000024 NVALL 

0003 R 004 1 1 4 P TEMP. 
0005 R 000037 TMVL 

— 0000 R 00001 2 WTEMPP 

0004 R 000006 ZS 


_0 0 0 3_R_000p_ 00 _ A R E A L 00 04 R 00000 1 ARHQ 

0000 R 000006 C 3 0000 fit 000007 C4 

00Q3 R n00n5 1 DIAL 0 003 g 000075 FrL 

0000 1 000000 I 0000 I 000001 II 

.0005 I-QOOqiz LVUg . 0003 J 000123 NOOfL 

’ OOOS I 000025 NXKVL 0003 R 000l74 J*l 

0003 R 0 ! 0Q3 4 RHOI ,_0003 R 010044 SlNAl-P 

0003 R 010] 1 5 WOOTl 0004 R 000002 Dr 

_ OOOS _R_ 0010 23 X K 0005 R 001035 KrVL 


noT n i L« 


00103 

2o 

Q0103 

3 $ 

00103 

**• 

00104 


00105 

6 c 

0lD4£l5_ 

7« , 

00106 

8 o 

00 tU 

?o 

00112 

i o o 

00113 

1 1 a 

001 l'» 

1 2« 

: 00115 

I 3 o 

001 t5 

l<w 

00115 

ISo 


_ SUBRJUII.NE.. VALVEL_ „ 

COMH0N/ALLCOM/AREALI2O) )CL(2ol , DEL T, DIAL (2(1) , FRL (20) .GjGC^ 
1N00EL(?0) , NPIPL t NPLINE (20) , PL ( 20 , I 00 1 , PTEMp { 20 , 1 00 > , RHOL ( B ) , 

2S IN ALP <201 »THET A ( 20 ) , T 1 HE , **DOTL ( 20 , I Op) , MTeMP ( 20 , 1 00 1 ,Z(20,!00) 
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1XKI101 oXKVLUOt50) - 

DO 50 1 o l ,NV ALL 
I InLYDNl! ) 

IPROPi»NPLINE( I 1 ) 

CALL INTERP( 10»S0,XKVL,TMVL,I .NXKVL ( l ) »TIMe,XKU)) 

CALL VAL ( I I , I , IPR0P,2> 

C 1 “-WS- ARE AL ( t U/CLU I ) * ( G oRHoL ( I PROP 1 »Z ( I I , 1 1-GC*PS«144*P~G» 
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V A t V 003 2 

00136 

33* 


WTEMPPnWTEMP t It , JJ) 

V At 90033 

00 1 37 

34* 


I I ® L V 0 N t I ) 

V A L VOO 3 4 

00110 

35* 

. 

KTEMPt I I ,1 1 =WTEHPP 

. VALV0035 

001 1l 

36* 


PTEKPtl I , 1 )a-WTEKPp/C2-Cl /CZ 

VAtVn036 

00112 

37* 

50 

CONTINUE 

VALV0037 

00111 

38* 


RETURN 

VALV0038 

00 1 is 

39* 


END 

VALV0039 


£NP OF 

UNI VAC 

UC 8 FORTRAN V COMPILATION. 0 oDUGNOSTIC® MESSAGE t S I 



VALVEL 

SYMBOLIC 

31 

AUG 

71 

12135J23 

0 

01S5n132 

14 

39 

C DELETED) 

VALVEL CODE 

RELOCATABLE 

31 

AUG 

71 

12135:23 

1 

01551171 

36 

l 

<D£LeTfD> 







0 

01551510 

14 

27 






122 


' '5. 4.14 WRITE 


This compilation was done on 02 *t 11.52127 


SUBROUTINE WRITE ENTRY point 003630 


Hora.6^ u sea 

JfiLOCK, 

N£HE,. LENGTH) 

oon l 

*code 

003646 

0000 

D AT A 

001516 

0002 

*81 ANK 

000000 

0003 

ACCCOH 

000030 

oooa 

ALLCOM . 

Q23675 - 

0005 

CHAMBR 

004626 

„ .. 0006 

DATA l 

000034 . 

0007 

0ATA2 

000062 

_ . 0010 

0ATA3 

00 1 200 

001 } 

F8LC0H 

001 775 

0012 

.flags 

DJ0Q006 

00 13 

JUNCIC 

000075 

DO 1 4„ 

PBLCOM 

002007 

0015 

pblfcm 

004015 

„ 0016. 

REGLCH 

001601 ... 

0017 

values 

000010 


— 0020 Y.A-LVCM 002021.. 


EXTERNAL REFERENCES (BLOCK. NAME! 

QJ0-2J CLOCK. 

0022 NERR2S 

0023.- NWDUS.. _ - 

0024 NI02S 

0025 NIOIS 

0026 NREWS 

0022 NfiBUS. 

0030 NWEFS 

0031 NERR3S 


STORAGE 

ASSIGNMENT for 

VARIABLES 

(BLOCK 

>_ TYPE, 

relative 

OQGQ 

0000 1 ** 

IOF 

0001 

001521 

1006G 

0001 

0001 

001572 

1 04 1 G 

noo l 

001620 

t 05 6 G 

oooi 

0001 

001652 

1 1 0 2 G 

000! 

002360 

1110L 

000! 

0001 

001757 

11H4G 

000! 

0c20l 6 

1 163G 

000 1 

0001 

002143 

1234G _ 

0001 

0030*0 

J25CL 

. oooi 

ooao 

000257 

1 30 F 

000 1 

002256 

1301G 

oooi 

0001 

003361 

1330L 

0001 

002326 

|34oG 

oooi 

ooai 

002400 

1 37 1 G 

0001 

003545 

I390L 

000 1 

_ OOOi 

002466 

I 423G 

0001 

002516 

1 4 4GG 

oooi 

ooco 

000443 

150F 

0001 

002626 

150CG 

pool 

. 0001 

003374 

1754 G 

oooo 

000720 

1 9QF 

0001 

0001 

000163 

22*>G 

0000 

0010*12 

230F 

pool 

0001 

000256 

25&G 

oooi 

000261 

257G 

0000 




LOCATION, NAME) 


001522 1 0 1 1 6 000! 001543 
001635 1 070 G 0001 002335 
001667 11J4G 0001 002405 
002536 1 1 70L 000! 002032 

002223 12646 000L_ 0J3214 

003240 13I0L 0001 002274 
003430 1350L 0001 002343 
00242! 14035 000! C03607 
002532 !447g 0001 002554 
00264! ISoSg 0001 002723 
0001 1! 206 G 0000 . 000755 
000210 236g 000! 000232 
001157 270F 0001 000313 


1024s OOJM 002320_ 1 Q30L 

1 07 0L " 0000 ” 000252 1 IOf 

1 1 3q| 000 1 0017 27 H346 

1173G 0001 002774 T230U 

1 270| 0001 003224 Ig^QL 

1314« 0001 002311 1326G 

1352s 0001 003506 1370L 

1 4 1 OL 000! 002451 14140 

1460G . 0001 002601 14700 

1536c, 0000 000630 170F 

2 I Of 000! 0001 36^ 2 (_6<j__ 

2 45g OOOD 001120 250F ’ 

270G 0001 000335 2?7g 



1 123 


0000 


001 2t 3 

290F 

oooo 


OPQ 2 2 9 

30F 

pool 


P0r356 

3066 

POPO 


PO 1 3 1 6 

3 10F 

0001 


000372 

31*6 

0001 


000406 

324G 

0000 


CC1404 

3 30F 

0001 


000422 

33 3G 

P001 


000436 

342G 

OOOO 


001415 

350F 

0001 


000452 

35 1 G 

0001 


0C04 6 6 

360G 

pppi 


00P5O2 

3676 

oooo 


001 430 

37n F 

000] 


000516 

376g 

000 1 


00PC73 

390L 

OOO 1 


000537 

4 0 7G 

ooot 


0PP553 

4 1 6 G 

0001 


000567 

4 25 G 

0001 


001335 

430L 

0001 


000603 

4 3 4 G 

0001 


0P0A17 

4 4 3g 

pool 


0P1 336 

4 5 OL 

0001 


000633 

45?g 

0001 


000647 

4 6 1 G 

000 1 


00 r 6 6 3 

4 7 0 G 

COO 1 


CrP677 

4 7 7 G 

naoo 


0OP226 

SOF 

one 1 


noo 7 ] 3 

506g 

0001 


000727 

5lB 6 

0001 


000743 

5 2 4 G 

ooot 


0 r 0 7 5 7 

5 3 3G 

non 1 


On r7 7 3 

5 4 2G 

PP01 


00153S 

5 SOL 

000! 


001007 

55U 

000 t 


001023 

560G 

0001 


CO 1 P4 G 

57og 

noot 


0P1 064 

577G 

000 J 


001552 

590L 

0001 


DO 1 IDS 

6 06 G 

000 1 


001600 

610L 

oooi 


001 120 

615g 

nnn l 


00! 15Q 

6 2 6 g 

nppl 


001165 

635g 

aooi 


001702 

64 46 

0001 


001627 

650L 

nooi 


OP 1 2 2 6 

656g 

000 1 


001253 

6 6 6 G 

0001 


00 1 3nO 

6766 

0001 


001644 

690l 

0000 


Qnr>235 

7 n f 

0001 


001325 

706g 

OOQI 


00] 357 

7 2 4 g 

000! 


001372 

7 27 g 

0001 


001661 

7301 

000 1 


001420 

7 37G 

0001 


001421 

742g 

pool 


Ppl 447 

7566 

com 


001704 

7701. 

0001 


001477 

77 1 G 

000 1 


001 500 

7 7 4 6 

0001 


001735 

7 9 OL 

noo l 


001735 

0 1 OL 

0001 


002215 

&9QL 

ooon 


000236 

90F 

0001 


002236 

930L 

0001 


002262 

950L 

onoi 


00 23n3 

9?0L 

0006 

R 

000032 

A A3 

0006 

R 

000033 

A A 4 

ooos 

R 

OOOnOO 

AREA 

0005 

R 

0COP2O 

AREAC 

0004 

R 

OPHOOO 

AREAL 

001 6 

R 

000000 

A REG 

0 OH 

R 

001440 

aregmjc 

00 I 6 

R 

001 450 

AREGP 

0017 

R 

oconoi 

ARHO 

P0C5 

R 

opr 0 3 n 

ATO 

0005 

R 

000031 

atdno 7 

0006 

R 

000000 

A 1 

0007 

R 

OOOPOO 

0 K 

0006 

R 

ooono i 

0 1 

0006 

R 

onnoo2 

C 

POOS 

R 

000033 

cc 

0005 

R 

000043 

CCC 

0005 

R 

0000*3 

CEFl 

0005 

R 

onooss 

c EF2 

0004 

R 

C0TO24 

CL 

POO? 

R 

000057 

CHAN 

0005 

R 

000077 

CP 

0005 

R 

non 1 0 1 

CP* 

0005 

R 

000102 

CP? 

ono5 

R 

nop! In 

cstar 

0005 

R 

noo 1 zn 

CS1 

0005 

R 

D00121 

CS2 

0005 

R 

000127 

CV 

0005 

R 

OPOJ 47 

CVEL 

opo6 

P 

000003 

Ci 

0006 

R 

ooonio 

Clt 

0006 

R 

000023 

C2 

0006 

R 

OO0n25 

C 3 

0006 

R 

000022 

C 4 

noo6 

R 

Onocn4 

C6 

0006 

R 

000005 

C 7 

0006 

R 

000006 

C8 

0006 

R 

oonoo7 

C 9 

0006 

R 

OCOOl 1 

DCLP 

0006 

R 

OOPOl 2 

DEL P 

0004 

R 

noonso 

DELT 

0005 

R 

000151 

DELTF 

0007 

R 

OOOQ 1 0 

PELXl 

00» 1 

R 

oonoon 

DFBL 

0016 

R 

np 1464 

DFW 

0004 

R 

000051 

dial 

0005 

R 

000 1 52 

01 AT 

00 1 6 

R 

00 1 60 

DMCl 

0016 

R 

OCI46I 

0MC2 

0016 

R 

001462 

DMC3 

0016 

R 

CO 1463 

DMC4 

0003 

R 

000000 

0PACC 

0005 

R 

000154 

OPM AN 

0005 

R 

000174 

dpto 

0005 

R 

000176 

ORPMT 

0005 

R 

000200 

DTD 

0003 

R 

OOOOPl 

DUM 

0005 

R 

000702 

OW 

0005 

R 

000210 

D1VF0EL 

0005 

R 

000220 

OVVOX 

0005 

R 

000730 

etat 

0016 

R 

op] 465 

freg 

0004 

R 

00nn75 

FRL 

0016 

R 

001 475 

FW 

0004 

R 

OOP i 2 1 

G 

0005 

R 

000232 

GAM 

0004 

R 

000122 

GC 

0005 

R 

OOn ?34 

GR 

DOW 

R 

DOOPOO 

gRho 

0005 

I 

000256 

1 

0003 

I 

000007 

I ACC 

0012 

1 

OOOOOO 

IACCPR 

0005 

1 

00r236 

1 CHAM 

0012 

l 

oroooi 

ICHAMP 

0003 

I 

OOPO 1 1 

IOUM 

00 16 

I 

001476 

IDUMi 

OOU 

I 

OOU77 

loUMU 

0016 

1 

001500 

I0UM1P 

no 1 6 

I 

oc 1 501 

IOUM JJ 

0003 

1 

OOoo 1 2 

IDUM! 

0003 

1 

OOOO 1 3 

1DUM2 

0003 

I 

OOOO l 4 

ID U H3 

0000 

1 

OOPpOO 

101 

oooo 

t 

orcicoi 

I D 2 

oooo 

I 

OOOO n 2 

1 D 3 

0003 

1 

000015 

IEMACC 

0014 

1 

OOOOOO 

Iend 

0015 

I 

000000 

iendf 

0005 

1 

000256 

ieng 

no 1 1 

I 

OOQ764 

I FSL 

0006 

I 

000020 

1 1 

0013 

I 

000000 

1 jUfrjet 

0006 

1 

OOOn 1 3 

IKOUNT 

0014 

I 

oronl 2 

I P B 

0015 

I 

000012 

I P B F 

0012 

I 

oooaos 

iplot 

0012 

I 

000002 

1 pR I NT 

0006 

i 

oonnl 4 

I PROP 

0005 

I 

000257 

JPUMI 

0005 

I 

000261 

1PUM0 

0012 

I 

000003 

1 REGPR 

0005 

R 

000263 

ISP 

0005 

R 

00^273 

IS 1 

0005 

R 

000274 

I S 2 

On 1 2 

1 

oopoo 4 

I TUR0N 

OOOO 

I 

OOOO 1 3 

I $ 

oooo 

t 

000006 

J 

0006 

I 

OOOP21 

JJ 

0005 

R 

000302 

KAY 

□nos 

R 

nop 3 1 2 

K A Y l 

0005 

R 

000422 

KAYln 

0005 

R 

000432 

kayi 1 

0005 

R 

01*322 

K A Y2 

0005 

R 

000332 

K A Y 3 

0005 

R 

000342 

KAY4 

0005 

R 

000352 

KAYS 

0005 

R 

000362 

K A Y6 

0005 

R 

000372 

K A Y7 

noOS 

R 

0P0402 

KAYR 

onos 

R 

0004 I 2 

KAY9 

OOOO 

1 

POO 007 

KK 

OOOO 

1 

ooon it 

ll 

0016 

1 

on 1 50 2 

LREGoN 

0016 

1 

0015 12 

lRegup 

0020 

I 

OOnPOP 

LVDN 

on2n 

I 

000 n 1 2 

L VUP 

0005 

R 

000442 

Mr 

0005 

R 

O0T4 52 

MR 1 

0005 

R 

000453 

MW 

POPS 

R 

000463 

MW I 

0005 

R 

000464 

M W2 

0006 

I 

OOOO 1 5 

N 

0003 

I 
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REAL lSp»tSi,lS2 l KAY > KAYliKAY2 t KAY3 > KAYH,KAY5,KAY6 t KAY7>K A T8 t KAY9,«R l T0002 
1KAY1Q.KAY11 ,MR,HRl p HWiMWl *MWZ „ lVRtT0003_ 

COMMON /ACCCOM /DP A CC >OUH( 6 I > ! ACC < 2 1 t ! DUM f 1 DUM 1 , IDUM2 t I DUN 3 , WRITO0O4 

UENACC 12 J |NACC*MNNN|PACC(2) # PPPP , VOL ACC ( 2 > *XKACC(2> . * 

COMMOcV/ALLCQM/AREAL ( 2D? ,CL <20? *DELT,DIAL ( 20) *FRL (20) 7 G, GC , 

1N005U20) ♦NPXPL»NPl 1MEI201 a PL 1 20 * LOO ) ♦ P TEMPI 2 a * 100 U RHOL £fl.l a, 

2SINALP ( 20) , THETA (20) , T I ME t W D0 TL < 20 > 1 00 1 v tf T eHP f 20 » 1 00) » Z < 20 1 1 00 > 

, COMMON /CHAM&R /AREA* 0 >2) * ARE AC (8) » ATD » aTDNDZ C 2 ) f CC { 8 ) ,CCC < R ) » 

1CEFU2) *CET2(2) oCMaN(8 p 2) r CP ( 2 ) , CP 1 , CP2 ( 6 ) f cST aR ( 0 1 , CS 1 , C5Z< 6 ) % 

<*» — l 1 * ^ l _ 1 / f- i o \ tsf*! Tr* K f « T f i r> nM ■ 11 / Q *3 \ is rt •T /s i 


WRJ-DOOS 

WRIT0006 

JfBLUDDflZ 

KRIT0008 

WR1TQ009 

KRtTOOlO 


« I un I 1 L / { I I W »«• ; I I WWW ‘ u f r > v f j « u 1 w f f ^ t- **■ t ~ r § ■...*» 

SW1NJ18.2) ,KN0Zt8) »HQX<b) *WTONOZ<0) , X 1 TP t 2 ) , XLTD < 2 ) . ._WRlTP021_ 

COMMON/O ATAl/Al .8 5 0 C,Cl,CA,C7,C8tC?.Cll ,DCLP 1 OELP , ! K0UIM7 , ) PROP , N , VIRJT00 22 

1 PRAT 1 ,PSON»II » JJ»C*t»C2,R,C3 ,XJ ,X2,S,ryp,AA3,AA*t .HRJ70DZ3 

C0MM0N/DATA2/BK(Q) ,0ELXL<20) ,NCMTB ,NN , XLENSL ( ZO) WRlT002*» 

_£QHMilN/DA.t&3/NAMCHtl!8jl‘n *NAMIHPI6) .NAMEIRS) »MA«EPUHO,2l.,NME.liO) » 31110025. 
tNMETBRt2,B},NM00T(|30),0UT0AT(S30),PU0TNDtBO),TIM,TIHF WRJT0026 

COH«ON/FBLCOM/OFBi.( »0«50) . IP81 (10) »NFbL jNPFBl- « 1 0 > , TF9L (10,50) WRi 711027 

COMMON /FLAGS/ I ACC PR . I CM A MP . t P R I NT , J REGPR « 1 TU ReN , 1 PL OT 

i .1111^1 /* i 1 I ( I A 1 « I # I n Cl M HlUrl kit t M HIM n l 


C0MM0N/JUNCLC/1 JUNcL ( 1 0 » 5 > t N JU N CL , NL I N J U <1 n ) 

COMMON /PBL COM/ I END (10)»IPB<10) t NP0L > NpRBL ( 10) ,pPRBL C 10 #50 ) » 

1 TPRfli-1 10*501 

COMMON /P9LFCM/ I ENDF < !□) , 1 PBF (10? * NkPBLF ( 10) , NPBL F * N p PBtF tlO) 
JPONOLl 10) tPPBLr ( 10 >50) f TKPBtF < 10*50 ) i TFBLFMQ >50 > ,XKP8LF < ! 0 9 
Z XfCP C 10? 

COMMON/REGICM/A«EG(0» I00>,ARECHX<8) ,AR€GP(8> lOMCl tOMc2*DMc3fOMC4 t 
I0FW|FREG(8) »FW|!oUHl tloUMM iIoUMlP* I D U M J J , L R E 6 D N < 8 ) ,LREGUp{0) , 
?WRrc _ NTnUM . NT REG f 8 \ »Pn~PRFF ( 8) > PU * QREG ( 8 > . 0 1 D UM t. Q2D UM . SP R E G ( 8 ) , 


( l T0026 
WRJT0027 
WRJT002Q 
WR j T002? 

HRJ70030 


in 


3 T AURt (j { 8 ) o « 

COMMON/ V AtUES /GRHO t ARHO,WR tZR , PR t)W5 t ZS >PS 

COMMON /VALVCM/L YD N (10) r LVUPUO)»NVALL»NXKVLUO),TMVL(!O t 5c) f 
IXK(IO) .XKVLU0.50? 

EQU1 VALENCE 1 I * IfNG ) 

DATA ID!*ID2*ID3 $ NW! » Nw2 , NW3/0 *0 * 0 ♦ 0 » 0 *0/ 

FORMAT ( * OTHE PROGRAM DT 15 EQUaL TO f # 2CH ♦ o • ) f E 1 4 • 8 / • 


* 

WR JT0032 

50) „ 

5YR JT0033 


WRU0034 

DMC4 k 

XiR II003S_ 

) * 

WR1T0036 

8)t - 

„WRj;t0037 


wR;T003e 


VYRH0039 
Y/RtT0040 
WRiyOO 1 !! 
WR 1 TOO 4 2 
WRlT0043^ 
C0«RJT0044 


FORMAT ( * OTHE PROGRAM DT IS EQUaL TO f # 2CH ♦ o • ) , E 1 4 • 8 / • THE C0«RJT0044 

2M8UST0RS INTEGRATION DT 15 EQUAL TO %EH P 8/« T HE A CCEtER A T l ONWR I J004 5 



0P| 32 

H6» 

on 1 32 

H7, 

00132 

H8 0 

00 i 32 

**?♦ 

00132 

50* 

00 I 32 

51 » 

00132 

5?o 

00132 

5 3 0 

on 132 

5Ro 

00132 

55* 

00133 

5 6* 

COI 3H 

57* 

00 135 

58* 

00136 

59 0 

00 136 

60q 

00137 

6l« 

00 1 *10 

6 7 * 

00 1 40 

63* 

on 1 40 

6H* 

OP | 40 

65 * 

00140 

66 * 

00140 

67* 

00140 

680 

00 1 40 

69* 

00) 40 

70* 

00(40 

71 0 

on i4 1 

72* 

00141 

73* 

00141 

7% 

00141 

75* 

00 14 1 

76# 

00141 

77* 

00141 

70o 

00141 

79* 

00141 

30c 

00141 

8 I 0 

00 142 

82o 

OO 1 4 2 

8 3 0 

00142 

8<U 

00142 

85* 

00142 

86* 

00 143 

87* 

00143 

8 0* 

00143 

89* 

00144 

90* 

00144 

91 0 

00144 

92 0 

00 1 44 

9 3 0 

00 144 

94* 

00 1 45 

95 0 

00145 

96* 

00 1 45 

9 7 n 

00 145 

98o 

00146 

99# 

00 146 

1 00# 

00146 

I 01 0 

00 1 47 

1 02 0 

001 47 

103* 


3 DUE TO GRAVITY IS» I2( » ♦ • ) THe GRAVITATIONAL CONSTANT 1S*,WRtTnn^6 

S17( *. • ) f E! *W8/* THe NUMBER OF ACCUMULATORS I S * * l 7 < » . * ) t I U / • THE N*RIT00H7 
SUMreR OF THRUST C H AMftERS I 5 « , 1 ( * . * > > I 1 H / * THE NUMBER OF FLOW BOUNWR j 

60 A F I ES [S* * I H f t THE NUMBER Of TURrOPUMPS I S * , 1 9 ( * . •) , U R /ftR 1 T 00H9 

7* The NUMBER OF LINE JUNCTIONS I S « t t 5 ( • # * J JlH/* THE NUMBER OF J NTWR j TOOSfl 
REGRaTIONS Per COMBUSTOR the NUMBER of PRESSURE bOUNOA^Rj T0OS1 

9R I E 5 l$* t IO( *♦*),! 1^/* THE NUHreR OF PRESSURE pOUNp aR 1 ES /FR I C T I ON WRjTPn52 
♦ IS iMH/» THE NUM B ER of LINES IN THE SYSTEM I S • f 1 0 t * 9 M 1 1 I H / 9 THE WR ITn053 
a number of regulators i s • ,I9< *,*> t i i h / ♦ the number of lumped Resiswruoos** 

STANCES HR J T0055 

3p FORMAT ( * 0 f t A 6 , 1 » f tSOl^/dOX^OMn W R I T 0 0 5 6 

50 FORMAT! f 0* tA6, » * * i 3E \ H » 8/ ( 1 OX *8E I H • 8 ) ) / WRIT0057 


70 FORMAT I ) WRimOSfl 

9q FORM AT f * 1 aT RUN TIME * ,Ei^*9» f THE FOLLOWING CONDITIONS We r E PF eSE* r I TP059 

jnt * > wr jron^n 

IIP format ( *0LINE index NUMRFR -NI3) WRITHOM 

130 FORMAT(*OAl « t »El'f#8'» fil «* t El*»#6** C = * , E I ** . a , * Cl WRITH062 

C 6 *» 9 EH*8,' C7 C8 »* f ElH,e>* C? WRirn063 

2 ntjEH.B,' Ctl C UEH.9,» CSTAR CV »* f El*W8,* PCWRIT006^ 

3LP **»EM*e/ # DELP ***E1*U8** DPMAN **,ElH*Q,* DWFUELa f .E M . 8 , ■ WRIT0O65 
MDWOX aSEH.8,' I II =MH/» IKOUNT»’ I SP WRJTP066 

5 *» t El4«8i 9 JJ MR « 9 t£l‘U6 P ’ MW * 9 9 EI*I»9 9 9 N WRIT0067 

6 r*»II 4/* PCHAM afiEM.Qi 9 PHAN = * t £ I ♦ 8 , * PRAT1 »*,EH.8 P * P 5 0 NWR I T 00 68 

7 ’SEI'I.S,' PTEMP «SEH.9t« TIMEF «**Ei l l f a/» W « * , E 1 4 „ Q t « WCWRJJ 006 ? 

8HAM ■» i el < l»a f « WFUeL «t|El l » # 8 > t WlNJ a'tEl^S,* WNOZ «',EU,6,* WRITD070 
9W0X WTEMP * * , E I 4 * 8 ) WRIT0D7I 

l5n F0RMAT(»0AA3 ■*iEl1«ai* AA4 b»,EH.8i« ATD Cl WRJT0072 

1«' V E!<I»A|’ C2 »*»El<t.8 # * C 3 «SEH,8/» CS CP WRJT0073 

2 a',£l'l«8i* CV1 »',E1H.8,* CV2 « * , E t <4 , 8 , * CVEL «SEt^8 f » DP 

3 TO =* f EIH.a/* DRPmT ETAT *= 9 9 E 1 ^ ♦ 8 , 9 GAM #',EI<j,8,i 

M I "*,Iia,* MW ** 9 ei‘U8 p « PCHAM p E 1 H. 8/ * PO Wp »* f EM.8 # * 

5 P 0 ft T latjElH.a** PtO *«,ElH,8 t * R = * 9 E H « 8 » ' RPMP aSEl^S, 

6* RPMPD n’fEl^e/* R PM j *= f , E 1 H . 0 , * S «= * t E 1 M . 8 , * Tc « * * E I *4 . 

78,* TIMFF « 9 iEH#8 t 9 TORP ■ * t E l H ♦ 8 , * TORT =SEH*0/‘ TTO ■•*£! 

8^*8, * U «*,En.8,* WNOZ a* t E10.8 t * UP **,£1*1.8,* WTDNOZ»’t 

9E! 1 ***/ 9 XI »* 9 ElH*8,* X 2 » 9 ,EH®8> 

17o FORMAT ( *OAl «*»EtH.8,* 8l Bt f £la*8 9 * C **,E14*8 f * Cl WRlTn082 

C 7 C8 » * 9 E i H * 8 / t C9 R» t EH # 6,» DCLPWR I T00S3 

2 •‘♦.EHifii* DELP I * * $ II ^ , * IJ J K OU N Tft R 1 TD08 H 

3«Ml*l/< IPROP «MH,» JJ «MHi« N PM A N » * 9 E I HWR 1 J008S 

<4.8,* PTEMP «*»EH»8t* TIMEF «SEH«8) WRIT0086 

1 7 n FORMAT C lHI»13l<IH*)/27<IX,131<lH»)/)ilX < 3*HlH'>)»62Xt35(IH<’>/tXt WRj TOO 8 7 

1 3H UH* ) ,3?HTHE EXECUTION TIME OF THIS DATA CASE I S » E I <4 « 8 f ?H M 1 NU TE^VR I T nO 8 8 

2S,,35UH»)/IX,3 < 4(iH«),62X,35(iHoJ/27(iXtl3l(iHoJ/)) WRIT 00 89 

210 FORMAT ( * PC 1 n»,El4 # e>* c2 l5, 9 EI'4tfi t * C3 « * P E 1 *4 , 8 , * C^ WRiTO0?0 

t«*iEIM«8>* C 5 5 HNEHiS,* C66 s»iEH»8/* DPACC »*,El8o8,* I WRIT0091 

2 a*,!! 1 *,* II IPROP ®*,IM,* Jj NNNN s 1 , I \/R 1 j 00 7 2 

3M/* PACC ***E!H*P»* pPPR »SeH. 8,* PTEMP a • > E I *4 * 8 , * TIME =' f EWRlTn093 

< ll < l,8 I ' WTEMP «*»EM«8) WRITOO?^ 

23n FORMAT I *CAREG ef iEH»8»» Cl =*,EM.6»* C2 » * > E 1 ^ , 8 # * C3 VfRiJ0075 

!«* 9 £M»8« 9 C *4 ** # El<4*8, r I K* f ll*»/* II » * , I l *4 , * IPROP »*VVRiT0076 

2 » I 1 4 f * JJ NT s * » I H 1 * PD « f ,El*4.e>* PU » * t E 1 **WR I T0077 

3^8/* PTFMP * * #El*4*fl|* TIME «®tEl*4,8>* WW » * T E i S • 6 ) WRIT0098 

250 FORMATMODFW « • , F 1 *4 . 8 ♦ 1 PW »*,El4,8»* II a * , II *f f • IPROP »*WRlT0Q79 

1 1 1 1 4 , * JJ Q 1 n*,ElM*R/* R2 «*,Et*4,R f » T I ME at f FWR|T01PP 

214,8.* WTEHp nt # EM*8i* wr »*,EI4oB) ftRlTOlOt 

27n FORMAT ( *OAR£G »*,Fl4,8 t * 1 “ * ♦ It 4 * * NT »*,I)4.* Po «* t E ftR ITni02 


114.0,* PTEMP w* t Fl4f8f* PU a*,fl4.8/* 01 «*, E14.fi,* 02 »*WRiT0tH3 



126 


00 1 H 7 
00150 
00150 
00150 
00150 
00 | 50 

00150 
00JS1 

00151 
00151 
00151 

00151 

00152 

-Q0153 

001S** 

- 00155 

00155 
OOI5A 

00156 

- Q01S7 
0016 1 
00|6l 
00202 

- 00212 
00222 

-00232 
002^2 
00251 
00251 
— 0026*1 
0 0 2 7 '4 
00303 
00312 
00321 
00330 
00337 

00396 
00355 
00 3 6 *1 
00373 
00373 
00402 
0040*1 
QQ413 
00422 
00431 

004 40 
00447 
00456 
00*165 

00474 
00503 

005 12 
00521 
00530 
00537 
00546 
00555 


104# 
105* 
106* 
107a 
! 08a 
109a 
1 1 Oa 

i n« 

I I 2a 
1 13a 
l 1 4a 
1 15a 
1 16a 
1 17a 
1 1 8 * 
1 i 9o 
1 20a 
! 2 1 a 

1 22a 
123* 
J 2 4 a 
125a 
126a 

2 27a 
t 28a 
129a 
1 30o 
l31o 
132* 
133a 
134a 
l 3 5a 
1 3 6 o 
1 37a 
I38o 
139. 
140a 
141a 
142o 
143o 
144a 
1 45© 
146a 
147a 
I 48a 
1 49a 
1 50a 
151a 
15 2a 
153© 

154# 
155a 
I 56a 
157a 
1 58a 
I 59 a 
1 60a 
161a 


2,E14.6 f * T I 
29Q FORMATS »0» * 

1 IZER SYSTEM’ , 

1 INJ =* * E t 4 • 8 f ' 


# 

1 1 x 


• ♦em.s) ""H 

CONDITIONS AT*,E!4.fi,* FOR C OM0USTOR * , I 2 /26X , * OX I D«R jj 
,*F<JEL SIDE*/’ CV = * »E l 4 » fl , * PMAN = *, El4.fi,* WtVRj 




4 

5 

'06 


cv 


■ *, El4.fi,* PMAN W J M J = ♦ , E 1 4 *8/7WR j TO I 07 


22X, ’COMBUSTOR CNAMrER PARAMETERS’/* C$TAR =*,E|4,fi,* ISP « • ,E 1 4 . WR ) TO 1 08 

38,' MR -*,614,8,* MW a*, EJ4.8,* PCHAM «*, El4.fi,* TC * • , E t WR J TP I 0? 

44.fi/* T ) MPUL-* »E I 4.8 , * WNOZ -*,E14.8) WRlTOJIO 

310 FORMAT! *0» *43X»‘C0N0lTj0NS AT*.E«4.8,* FOR TUR BO PUMP * , J 2/ ♦ CP -'.WRlTOtll 

lEl4.fi, * CVEL - * , E J 4 . 8 , • FTAT -*, El4.fi,* GAM «*,F|4.8,« Myi -WRlTOM? 
2*,E14,8,« POWP k*,E 14,8/* POWT Ei4.fi,* PTO = *, E14.fi,* RPMT WR(T01I3 

3 Fl4.e t * TORP =*, El4.fi,* TORT “*, E14.fi,* TTO »*,El4.8/« U WRIT0I14 

4 -* , E14.fi,* WToNoZs* , El4.fi) WRlTOllS 

33« FORMAT!* THE FOLLOWING VARIABLES ARE INPUT CONSTANTS*) WR IT0 16 

3S0 F0RMAT!*1THE FOLLOWING VARIABLES ARE HP014a CALCULATED CONSTANTS * ) WR I TO 1 1 7 

370 FORMAT ! * ! THE FOLLOWING VARIABLES ARE INITIAL CONDITIONS*) WRjTOllfi 

GO TO <390, 430, 460,8)0, 1130, 1230, 1250, 1270,1310, 13 30, 1350, 1370*139 WRjTOll? 
*0 ) , I GO WR J TO 1 20 

390 CONTINUE WRJT0121 

WRITE INPUT CONSTANTS / WRJT0122 

WRITE 16,330) WRIT0123 

WRITE !6, I 0)DELT ,DELTF ,G ,GC ,NACC tNcHAH ,NF0L,NGGTP ,NJUNcL,nN,NP 8L ,NWR j TO! 24 

I PBLF ,NPIPL ,NREG ,NVALL WR1T012S 

IF (NPBL*GT,0) WRITE (6,30>NAME(2) , ( I END 1 1 ) ,1-1 »NPBL ) WRJT0I26 

IF (NPBL.GT.O) WRITE ! 6 , 30 I N AME f 3 ) , ( I PB ( I) , I = 1 , NPBL) WRIT0I27 

IF (NVALL.GT.OI WRITE (6,30)NaMe( 4) , (LVONd ) ,1*1 ,NVaLL) WRIT0128 

IF (NVALL.GT.OI WRiTe (6,30)NAME15) , (LVUP(I) ,I«1 ,NVALL) WRJT0I29 

WRITE (6,30>NAME (6) , (NPLINE! I) » I«1 ,NP!PL> WRJT0I30 

IF ( N JUNCL • GT .0 ) WRITE { 6 , 30 ) NA ME ( 7 ) , ( II JUNCL (I , J ) , J- l , 5 > , I * 1 , N JUNHR 1 TO 1 3 1 


I CL) 

IF (NFBL.GToO) WRITE (6,30)NAME!B) , t IFBLU ) ,1-1 ,NFBL> 
WRITE (6, SO I NAME (44) , (XLENGLd > >1 = 1 »NPIPL) 

WRITE t6,50)NAME (41) , (RGAS ( ! ) , 1-1 .8 ) 

WRITE (6,50 ) NAME (43) , ( TGAS 1 1 ) , I -! ,8 ) 

WRITE (6, SO INANE (23), (BK(I), 1-1,8) 

WRITE ( 6,50 (NAME! 9 ) , ( AREAL t I ) , I-! ,NPIPL) 

WRITE (6,S0)NAME< 10) , <CL ( 1 ► .1-1 ,NP!PL) 

WRITE (6, 50) NAME! 1 1 ) , (D! AL( I > , 1-1 ,NPIPL) 

WRITE (6,50) NAME ( I 2 I . ( FRU ( I ) . 1 " 1 , NP I PL ) 

WRITE (6»50)NAME(13),(5lNALP(I)»I— 1 ,NP)PL) 

WRITE « 6 , 50 ) NAME ( 14>,(THETA(I ) , ) = 1 ,NP t PL) 

WRITE PROGRAM calculated variables 
WRITE 16,3501 

WRITE (6,50)NAME(24),(cC(|1,I«1,8) 

WRITE ( 6,50)NAME ( 25 ) , < CCC ( I ) , I -I ,B) 

WRITE (6, SO) NAME (26>. (DEL XL (I ),I«1 ,NPlPL) 

WRITE (6, 50) NAME l27>,(KAY(t),l»l»B) 

WRITE ( 6,50 )NAME ( 2g ) , (KAY I 1 1 ) , 1-1 ,8 ) 

WRITE (6,50) NAME (29) , (KAY2 ( 1 > , 1-1,8) 

WRITE (6, 50) NAME (30), ( K A Y 3 ( I) , ! = ! ,8) 

WRITE (6,50)NAME(3l)« <KAY4t I ) ,I“l ,8) 

WRITE (6,50)NAME<32),(KAY6(I),I-!,8) 

WRITE (6, 50) NAME (33) • (KAY6( !> ,1-! ,8) 

WRITE (6,50|NAME(34>,(KAY7(I),I*1,8) 

WRITE (6, 50) NAME (3S)»(KAY0»I)»I»5,8> 

WRITE (6,50)NAME(36>,(KAY?(1),I-I,8) 

WRITE ( 6, 50) NAME (37), (KAYIOU), 1-1,8) 

WRITE (6,S0)NAME(3fi),(KAYIlm»I»>,8) 

WRITE < 6, 30) NAME (1),(N0DEL(I),I-1,NPIPL) 


WR J TO I 32 
WR1T0133 
WR I TO 1 34 
WR I TO 135 
WRITO) 36 
WR JTO 1 37 
W R I T 0 ! 3 8 
WR I TO 1 39 
WRIT0I4O 
WR I TO 1 4 1 
WRl To I 42 
WRlTOl 43 
WR | TO 1 4 4 
WRJTO I 45 
WR I T 0 1 4 6 
WR I T 0 I 47 
WR I TO 148 
WRITO 149 
WR i TO ! 50 
WR I TO 1 5 I 
WRITO I 52 
WR I TO 1 53 
WR I TO 1 54 
WR I TO 1 55 
WR I T 0 1 5 6 
WR I TO 1 57 
WR ITO I 58 
WRITO 159 
WR ITO 1 60 
WRlTOl 61 



00561 

f b? P 



IF (NREG,GT,0> WRITE (6»3r>NAM£(39> v <NTRCGl I ) 9 l»l,NREr,) 

WRJT0162 

rn57i 

i 63* 



WRITE (6t50)NAME(9o) , (pRAicm > I=*l t9) 

WRIT0163 

00603 

169* 



WRITE (6 *50 )NAME (9? ) f (RHOL t I ) * I « I > 8 ) 

WR] TP l 69 

00603 

1 65* 

C 


WRITE PROG r AM INITIAL CONDITIONS 

V/ R j T 0 1 6 5 

OP6 l 2 

t 66© 



WRITE (6*370) 

W R I T 0 1 6 6 

006 1 ‘I 

1 6 7 o 



DO 910 1 !=l»NPIPl 

WR I TO 1 67 

Of'* "> 

1 60 * 



J JcNO[)FL (II) 

WRIT0168 

00620 

16?* 



WR1 Te ( 6 * 1 10) I I 

WRjtP! 69 

00623 

1 700 



WRITE (6*5P>NAME<tS> , ( pL Cl 1 * J ) * J» i , J J ) 

W R I T o j 7 n 

00632 

l 7 I & 



WRITE ( 6 »5C ) NAME< 16 ) , <WDOTL{ 11 9 J) , J«1 , JJ) 

WR I T 0 I 7 1 

fl06H 1 

1 72* 



WRITE (6,5C)NAME U7 ) , (Z ( 1 I . J ) , J=I * JJ) 

WR I T 0 I 7 2 

10650 

173« 


9 in 

CONTINUE / 

W R I T 0 1 7 3 

00652 

1 7<U 



IF (NACC.GTftO) WRITE ( 6 >50 ) N AME ( 2 1 ) , ( P ACC ( KK > , KK» I » N ACC > 

WR 1 T 0 1 7 9 

00662 

1 75 * 



IF (NP3LF*GT*0) WRjTE <A,S0)NAME(m,(P8NDL(KK)*KKnl,NPBLF) 

V7R l TO 175 

00672 

176ft 



IF <NvALL*GT.n) WRITE ( 6 , 50 ) N AME < 22 ) > < XK ( Kk ) ,KK* 1 , NV ALL ) 

WRt T01 76 

00702 

177ft 



IF (NPBLF,GT.O> V^RiTe (6 ,50)NAME U9) ► ( XKP (KK ) t KF»l *NPBLF ) 

WR J TO ! 7 7 

00712 

1 78o 



GO TO 1910 

WRIT0178 

00712 

! 79 « 

C 


OUTPUT combustor oata on plot tape 

WRIT017? 

00713 

180ft 


93-i 

CONTINUE 

wrztoiqo 

0071*1 

181 ft 



GO TO 1910 

WRJT01 8 1 

no 7 1 H 

182ft 

C 


SET UP BCD PLOT SYMBOLS ON PLOT TAPE 

WR l TO I 8 2 

0C7 |5 

l63o 


950 

CONTINUE 

WRiTOl 83 

007 1 6 

1 B 9 ft 



ID la-1 

WRiTOl 89 

00717 

1 85 o 



NWlol+9*NPlPL 

w R i T 0 l 8 5 

00720 

1 86o 



NPIPLl»NPIPL+20 x 

WRiTOl 86 

0072 1 

J 8 7 o 



rewind a 

W R I T 0 I 8 7 

00722 

1 8 8 « 



I a I 

WRITO 1 88 

00723 

1 89o 



DO 970 KK»1,Z 

W R I T 0 1 8 9 

00776 

1 90o 



DO 970 LL*1*NPIPL 

WRITO 1 90 

00731 

1 91 o 



NMOUT ( I ) =N AMEPL ( LL t KK ) 

WRIT0191 

00732 

197ft 



1 « 1 ft 1 

W R I T 0 I 9 2 

00733 

1 93 o 


970 

CONTINUE 

WRiTOl 93 

00736 

1 99o 



DO 990 KK«I*2 

VYRiTOt 99 

00 7*1 1 

1 9 5 o 



DO 990 LL«21 pNP IPLl 

WR I T 0 1 9 5 

00714 

I960 



NMOUT ( I )«NAMEPL(LL 9 Kk) 

WR I T 0 1 9 6 

00745 

l 9 7 o 


990 

CONTINUE 

W R J T 0 1 ? 7 

00750 

I960 



1 = 1-1 

WRiTOl 9 8 

0075 1 

199© 



WRITE (8) tDUNWl pTlM* (NMOUT (LL) >LLal *1 ) 

W R J T 0 l 9 9 

00762 

200ft 



I D I “ I 

WRtT020n 

00763 

201ft 



ID 2=-2 

WRIT020I 

00764 

202o 



NW2= 1 ft I 9ftNCMTB + 8*>NGGTP + NcHAM 

W R I T 0 2 0 2 

00765 

203 o 



IF (NCMTB*EQ*0) GO TO 610 

W R I t 020 3 

00767 

209ft 



l » 1 

WR IT0209 

00770 

205» 



DO 510 LL=tfNCMTB 

WRj T0205 

00773 

2 o 6 © 



00 510 KK» 1 # 1 9 

WRITP206 

00776 

2 0 7 © 



NMOUT m=NAMCHM(LL,KK> 

WRIT02H7 

00777 

208 o 



I a I ft 1 

WRiTn20R 

0 1 000 

209ft 


510 

CONT INUE 

WR j TO 209 

01003 

2 10ft 



IF (NGGTP.EQ.01 go to 550 

WR J T02 1 0 

oioos 

2i io 



DO 530 LL* 1 » NGGTP 

WR i T02 1 I 

01010 

2 1 2 o 



DO 530 K K ° 1 * 8 

WRJT0212 

01013 

2 | 3 ft 



NMOUT Cl )»NMETaN(LL»KK) 

WRJT0213 

01014 

2 1 9ft 



I = I ♦ I 

W R I T 0 2 1 9 

01015 

21 5ft 


530 

CONTINUE 

W R I T 0 2 1 5 

01020 

2 1 6 o 


550 

CONTINUE 

WR I TCI 21 6 

01021 

2 1 7 o 



IF (NCHAM.EQ.O) GO Tq 590 

WR JT021 7 

01023 

210<» 



DO 570 LL*1*NcHaM 

WR IJ021 8 

01026 

2 1 ?o 



NMOUT < I )*NAMTMP(LL ) 

A R 1 T 0 ? I 9 



01027 

220o 


i»i + i 

01030.. . 

22J.O... 

, *57fl. 

_C£UiT 1NUE * 

01032 

2224 

590 

CONTINUE 

01033 

223c 


1*1-1 

0 1 03** 

221s 


WRITE < 8} Id 2,NW2,TIMF, (NMOUT(LL) ,Ll*l *1 ) 

01 ois 

225c 


t D 2 w 7 

01016 

226c 

610 

CONTINUE 

01097 

227c — 

— 

• IF tNREG*WACC*NP8LF + NV A LC*EQ*QKG0- TQ-7S.G 

010S1 

228o 


I 03«9. 3 

01052 

229 » 


I»1 

01053 

230« 


IF (NREG.EQ.O) 00 TO 650 

. 01055 

231c 


00 630 LL«1 • NREG 

01060 

232o 


NMOUT ( I ) aNME ILL) 

01-06-1 ~ 

233c 



_I*l1<v1 . 

01062 

231e 

630 

CONTINUE 

- 01061 

235c 

650 

CONTINUE 

01065 

236c 


IF tNACC.EQ.Ol GO T° *90 

- ■ 01067 

237c 


00 670 LL*1 * N ACC 

05072 

238o 


NMOUTt I )»NMe(LL* >, 8) ' 

0107-3- 

239* 

c 

I IS. I *4 , , _ — - w 

01071 

210o 

670 

CONT I NUE 

• -01076 

2‘ lie 

6?0 

CONTINUE 

01077 

212c 


IF (NVALL»EQtO> GO TO 730 

- OH 01 

213c 


DO 7 10 LL*1 fN V ALL 

01 1 0*» 

241c 


NMOUT I 1 >»NMe(LL+10> 

O-H0&- 

215» 


I « I * * 

01106 

2*l6o 

710 

CONT I NUF 

.. onto 

297o 

730 

CONTINUE 

g oim 

298c 

1 

IF (NP8LF * E Q * 0 ) GO To 770 

-- 01113 

299a 


DO 750 LL»1 fNPBLF 

01116 

250o 


'NMOUT ( I ) =NM£ UL + 20) 

04. 1 l-Z 

.251 a 


NH0UTU+NPBLF)«NME(LL^30) U 

01120 

252. 


J«I + 1 

_ 01|2l 

253o 

750 

CONTINUE 

01123 

251. 


I«I*NPBLF 

- - 01121 

255o 

770 

CONTINUE 

01125 

256o 


I =■ t - I 

0-14 2 6 257 o - — 


Ntf3 ? X^I - - - - 

01 127 

258ft 


WRITE! 8) I03,NW3,TIm»(NM 0UTU.U »LL«I »l ) 

_ OHIO 

2S?o 


I D3 = 3 

□ 1 141 

260* 

7?Q 

CONTINUE 

oim 

2$U 

C 

OUTPUT GENERAL LINE DATA ON PLOT TAPE 

01 1 *t2 

262* 

sin 

CONTINUE 

01 t*t3 

>243* 

— 

DO 830 LL"l|NPI p L .... . . 

01 116 

26<f o 


NNOOEL"NODEL(LL) 

01 117_ 

265 o 


PL0TND(LL) b WD0TL(LLi1 > 

01150 

266® 


PLOT Np (LL+NPI PLl^WROTU ILL ,NNODEL 1 

0 1 1 5 1„ 

267o 


PLOTNO rLL*£»NplPL > .PLJLL. 11 . _ 

01152 

26 8 o 


PL0TND<LL*3oNPIPL>:*PL<LL,NN0DEL> 

ni i=i3 

Z(x 3* 

830 

FONT 1 NUf • .... . ... ... 

01155 

270* 


I »1«NP l PL 

„ 01 156 

27 U 


WRITE (8 ) ID1 »NHI ,TIHE, (PL0TND1LL) ,LL“1 » 1 ) 

01167 

272* 


I “ 1 

_ . 014 70 . 

273o 


IF (NCHTB.EQ.01 GO TO 950 

01172 

27 H » 


00 850 KK«1 .NCMTB 

Q4.1J5.__ 

.275ft 


OUTDAT I I >=PCHAH(KKj .... 

01 176 

276ft 


1 = 1 + 1 

--0I 1-77. 

277© 


OUTDATt | )«WCHAM1KK) 
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01200 

2 7fl« 

I » I + 1 

WRH0277 

01201 

279# 

OUTDAT ( I )«CSTAR (KK ) 

WRirn278 

01202 

260* 

I =* I + i 

WR l TH279 

01203 

28 I 9 

OUTOAT ( T >«PMAN (KK » | ) 

ffRjTP280 

0 1 ?0 

282# 

1*1 + 1 

WR IT028 1 

01205 

2 B 3 * 

0UT0ATU >*PMAN(KKt2> 

WRITP282 

0120* 

284 o 

I 3 I 9 1 

WR 1 TO 28 3 

01207 

28S« 

OUTDATf n«ISP<KK) 

W R I T 0 2 8 4 

01210 

2669 

I«I + 1 

WR 1 TH28S 

01211 

287 « 

OUToAT t 1 1 = MR ( KK ) 

«R JT0266 

01212 

28Ro 

J * I + 1 

WRi T0287 

01213 

2 8 9 o 

outoatc i >=wfueukk ) 

WRIT0238 

0121*1 

290o 

1*1 + 1 

WR 1 T 0 2 8 9 

01215 

291o 

OUTDATf 1 )»WOUKK) 

WR IT029D 

01214 

2929 

1 M + 1 

W R t T 0 2 9 1 

01217 

29 3 o 

OUTOAT ( ! J^CVfKK, 1 ) 

WRTTP29? 

01220 

2949 

1*1 + 1 

WR! T0293 

01221 

295o 

OUTDATf ! )*CV(KX*2) 

WPIT0294 

01222 

296o 

1*1 + 1 

>V R j T 0 2 9 5 

01223 

297o 

OUTDATf I )»WINJCKK • l ) 

WR J T0296 

0122*1 

298o 

I * I + l 

WRJT0297 

01225 

299o 

0UTDAT(!)*WlNJ(KKt2l 

WR j T 0 2 9 8 

01224 

3 00 * 

1*1 + 1 

WRJT0299 

01227 

301o 

85o CONTINUF 

WR l T0300 

01231 

302o 

IF (NGGTP.EQ*0> GO To fl90 

W R 1 T 0 3 0 1 

01233 

303 e 

00 870 KK*I » NGGTP 

WRIT0302 

01234 

304o 

OUTDATf! )»POWP«KK) 

W R J T P 3 0 3 

01237 

305 o 

1*1 + 1 

WR I T 0 30 4 

01 2*f0 

306 o 

OUTDATf I )nPOWT(KK) 

WRIT0305 

012^1 

307o 

1*1 + 1 

WR I TO 306 

0 1 2H2 

308o 

OUTDAT f I ) wp TO f KK ) 

WR 1 T0307 

012«3 

309o 

1*1 + 1 

WR I TO 30 8 

01 2^*1 

3 109 

OUToATfl )=RPHT(KK) 

WRHO309 

01 2H5 

3! i o 

1*1 + 1 

WRIT03I0 

Ot 2*16 

31 ?9 

OUTOAT ( I 1 *T0RP C KK ) 

WR 1 T03 I I 

0 1 2*1 7 

3 | 3 o 

1*1 + 1 

WRIT031 2 

01250 

3 l 4o 

OUTDAT ( I ) rTORT <KK ) 

WRI T0313 

• 012&1 

3 1 5 o 

1*1 + 1 

V/R1T03 1 4 

01252 

3 J 6o 

OUTOAT ( ! ) *TTO (KK > 

WRITC131S 

01253 

317o 

I « I + I 

WR I T 03 I 6 

01 25*t 

318o 

OUTDAT f ! )*flTDNOZ (K*> 

WR I T031 7 

01 255 

3 1 9 o 

1*1 + 1 

WR J T031 8 

01254 

3 20 # 

87n CONTINUE 

WRi T031 9 

0 1240- 

321o 

890 CONTINUE 

WR I T0320 

01261 

322o 

IF (NCHAM*EQ*0> GO To 930 

W R 1 T 0 3 2 I 

01263 

323o 

DO 910 KK*1 »NCHAM 

WR I T0322 

0 1 266 

324# 

OUTOAT ( t 1-TlMPUL <K K + NGgTP1 

WR JT0323 

01267 

325* 

1*1 + 1 

WR J T0324 

01270 

326« 

9 1 n CONTINUE 

WRIT0325 

. 01272 

327* 

930 CONTINUE 

WR1T032A 

01273 

3 2 8 o 

1«I - 1 

WRIT0327 

0127** 

329o 

WRITE <8 1 102 #NW2 cTiHEF » ( OUTDAT (KK) ,KK“l iI ) 

WRIT032Q 

01305 

330 o 

95Q CONTINUE 

W R j T 0 3 2 9 

01 306 

331 9 

IF (in3.FQ*0> 60 To l^in 

WRIT0330 

0 1310 

3 3 2 * 

I -1 

W R 1 T 0 3 3 1 

01311 

333* 

IF (NREG.EQ«0> GO TO 99 O 

W R ! T 0 3 3 2 

01313 

334* 

DO 970 KK*t t NRE G 

WR ! T0333 

01316 

33 5 o 

OUTDATf ? )*ARCGfKK , 1 ) 

WR J T 0 T 3 4 




01317 

336 o 



ai 320 

3 37 * 


01322 

338 * 




- 01323 . 

33 ?* 



01325 

3 *< 0 « 


— 

- 01330 - 

3 *ilc 



01331 

3 H 2 o 







tU J j c— 




013 35 

3 <* 9 o 


— 

-01335 

3 * 45 * - 



01337 

3 H 6 o 




-01352 

3 '* 7 c „ 



01353 

398 o 



- 01-35 5 

- 2.9 9 o. 




01356 

35 0 o 



01357 

35 ! o 



01351 

352 o 



- 0135 R- 

353 * 



01355 

359 o 



.01356 355 ft 



01357 

356 o 




-01361 - 

357 o 



01362 

358 o 



- 01363 - 

359 o 



01365 

360 * 



. 01 . 37.5 




01375 

36 2 o 

C 



01376 

363 o 



01377 

369 o 



01502 . 

36 5 e 



0 i 50 S 

36 6 o 



-O-L'J-O 6 

_ 367 a. 



01511 

3 68 o 



01 52 Q. 

3 6 ? o 



01527 

370 o 


CO 

o 

01531 

37 Ic 



01533 

372 o 


au .35 

_ 3 Z 3 a_. _ 


01555 

379 * 




01553 

375 o 

! 


01555 

376 o 



015 &R 

37 7 o 



01575 

378 o 



JLLSQ 3 _ 




01507 

380 o 



. 01507 . 

38 1 o 

- 


01507 

382 e 



01531 

383 o 

] 


01533 

309 o 


: 

01535 

. 3 &S* _ 



01 S 50 

3 86 o 


r 

01550 

387 o 



01562 

388 o 

! 

r 

01565 _ 

-389 o 



01565 

390 c 

C 

A 

0 1 5 a 5 

„ 3 ? 1 6 - 

c 


01565 

392 o 

1 

3 

01566 

393 o 



I«UI 

.570 CQHI.UJtUE 

550 CONTINUE 

IF (NACC.EQ.G1 00 TO 1030 

00 1010 KK“I ,nacc 

OUTpAT t I InPAcctKK ) 

1*1*1 

HMG-CONTJNUe 

1030 CONTINUE 

IF (NVAUt.EO.O) 60 TO 1070 
00 1050 KK*1 ,NVALL 
OUTpAT ( I InXK UK) 

1*1*1 

1G5q_CQNI1.NU£ 

1070 CONTINUE 

IF (NPBLF-EQ.01 GO TO 1110 
D° 1050 KK“ 1 t NPBLF 
OUTOATI 1 )*XKP (KK ) 


m 

ITTCT 7 


WRITJ 

_w R LI 
krjtT 

WRIT0338 
WR I T0335 
WR 1T0350 
V?R 1 T035 1 
_HfiJ.T03iZ 
WR I TO 3 5 3 
WR I T0355 
WRJT0355 
KR1TD35& 
WRl T0357 
_WRlTQ32§ 
WR l T0355 
BRIT0350. 
OR i T03S 1 
. WR I T0352 
RRJ T0353 


OUTDATl I*NPBLF1 «PBnDL[KK) , 

1090 CONTINUE 
J*!*NPBLF 
1110 CONTINUE 
!»1->1 

WRITE (0) ID3,NH3,TInE»<0UT0AT<KK) ,KK'M1 

— GO-TO—liUO . . . 

OUTPUT NOMINAL, PRINT 

1 130' CONTINUE 

WRITE I6,50)TIME 
.. 00 1150 ItMl ,NP1PL 
JJ»NOPEL (II) 

. ttRITE~L6L4-1101.II -- , — 

WRITE (6, SOI NAME! Is> * (PlUl » J I ,U» 1 , JJ I 
WRITE (6*501 NAME ( 1 6 > , (WDOTU I I ,s>) ,U» 1 , JU> 

1150 CONTINUE 

WRITE (6,701 

IF (NP8LF.EQ.0I GO To 1170 

. .KRlI£_£jSL4SDlBAME!laL*tPBNDUI).I»!.NI?Bt.E.> _ 

WRITE <6»50INAHE(1?I * ( XKP ( I 1 ,1*1 ,NPBLf 1 
1170 CONTINUE 

IF (NREG.GT.01 WRITE ( 6 , SO 1 N AME ( 20 I , t AREG { kK , I ) , KK« 1 , NREG ) 

IF (NACC.GT.OJ WRITE (6 (SO)NAME (21 ) , (PACC (KK1 ,KK n t ,NACC) 

IF (NVALL.5T.0I WRITE ( 6 , 50 1 NAME ( 22 1 » < XK (KK 1 ,Kk» 1 ,NVAU 1 

0Q..1 1?Q_ I»L*NCMT5 _ „ 

WRITE (6, 250) TIME, I ,CV( I , 1 1 ,PMAN < I , 1) ,WINJ ( I , 1 ) ,CV ( I , 2 ) ,PmAN { I , 2) ,WR | T0375 
lWINJCI,2),C5TAR(!),ISPm,HR(I),MW(l),PCHAM(n,TC(n*TtMPUU<!},WN0WRlTQ380. 
2Z ( I I W R I T 0 3 8 1 

1150 CONTINUE . . . WRIT03B2 

IF (NGGTP.LE.OI GO To 1510 WRU0383 

_XM2_JL^aJ3_Is * 1.NGGTP WR IT-03 8 5 

WRITE (6,3101TI«E,1 ,CP( I> *CVEL( II ,ETAT( 1 1 ,GAN(I 1 *MW(I> , POWP ( I 1 , POWKR 1 T0365 
ITU I ,PTO ( I 1 ,RPKT ( I 1 , T ORP ( I 1 ,TORT( I 1 ,TTO(I 1 ,U ( 1) ,#TONOZ < U WRIT03 0 6 

1210 CONTINUE WRIT0387 

GO TO 1510 , WR l T0388 

OUTPUT DETAILEO PRINT ON NEWTON-RaPHSON LOOP IN CRAM WR|T038? 

. ROUTINE . „ _ . WRIIQ1S0 

1230 CONTI NUF WR 1 TO 35 1 

WRITE (6,1701 Al ,Bl , C , C 1 , c7 , C8 , C? , DCLP , DEEP , I , II , 1 KOUNT , I PROP , J J , N , WR l T0 3S.2 


„ -~y.Riia355 
HR I T03S5 
WR I T0356 
WR I TD357 
WR1T0350 
WR I T0355 

.. _ am.iQ360. 
HRIT0361 
WR I T0362 
WR I T0363 
WR1TQ36H 
WR I T0365 
.WR1TQ364. 

WR I T0367 
WR I T0368 
WRU0365 
WRIT037O 
WR I T037 I 

WRIIQSZL 

WR I T0373 
WR I T0378 
WRl T0375 
WRIT0376 
WRU0377 
..WRliq 378 
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0 (566 

3?9* 

01612 

3?Sc 

01612 

396# 

01613 

3 9 7c 

0161, 

3 9 8 o 

016 1, 

3 99 o 

0161, 

9 00 c 

0161, 

MOlo 

01663 

902c 

01463 

903c 

0166, 

909c 

0)665 

905c 

01667 

906c 

01670 

907c 

01671 

90S* 

01672 

909 o 

01673 

910* 

0167, 

9 11c 

01677 

912c 

01677 

9 1 3c 

01700 

9j9* 

01701 

9 1 Sc 

0 1701 

9 l 6 • 

01701 

9l7« 

0 1701 

9 1 8 o 

01750 

9 I To 

01750 

920 1 

01751 

4 2 1 « 

01752 

92 2 o 

01752 

923o 

01773 

929 o 

01773 

9.25 a 

01773 

926c 

0177, 

927o 

01775 

928* 

01775 

9 29o 

02016 

9 30 o 

02016 

93U 

02017 

9 3 2 o 

02020 

9 3 3 o 

02020 

939c 

0203, 

9 35* 

0203, 

936c 

02035 

937* 

02036 

9 3 8 o 

02036 

939* 

02051 

990 o 

02052 

99 1 o 

02053 

992* 

-4H05,- 

- 993*. 


iPH^Nf r ^PTEWPr T I , Uj> ,TIMEF 

60 TO 1*U0 r 

C OUTPUT DETAILED COMBUSTOR PRINT prom CH am ROUTINE 

1250 CONTINUE 


WR!TnO?3 

WR I TC399 
WR IT0395 
rt p R rr0396 


WRITE <A f ]30)Al»M f C v ClffC6«C7tCa v C9 9 Cll 9 CSTARM)iCV(! 9 N> * nC UP , DELPWR I TP397 
I »DPMaN( I »N ) »DtFUEL [ I J iD'WOX <1 ) , I , 1 1 , fKOUNT, I SP f I > v < 1 ) v MW f n f N V WR ] TQ398 
2PCHAM( I ) iPMAMU i N) f PR AT I ,PSQN,PTEMP< I I » J J > , T 1 M£F # » ( N ) , a m CM 9 WFUWR ITP399 


3rt. <r l .wrwjii ,nj ,wNoZii j ,wox ( j j ,wt e mp( s j 

9 J J ) 

WR IT090H 

GO TO 1910 

CREATED t 


WRIT0901 

wrap up plot tape? if 

and print execution tire 

W R J T n 9 0 7 

CONTINUE 



WR JT0 9Q3 

IF (1PLOT # EQ#OJ GO To 1290 



WR I J0909 

END FILE 8 



WRIT09 05 

REWIND 8 



WR 1 T 0 9 06 

CONT I NUE 



WRJT0907 

T I ME*0 #0 



W R I T 0 9 0 8 

CALL cLOCK(TIME) 



WR ITP90? 

WRITE (6*190>tIMF 



W R I j 0 9 1 0 

GO TO 1910 



W R 1 T P 9 1 1 

OUTPUT DETAILED PRINT 

ON TURBOPUmp 

WRITU9 I ? 

CONTI NUF 



WRIT0913 


WRITE (6 9 lBOUA3«AA f l 9 ATO«Cl fl C2>C3 9 C9iCP<n t CV(r»MtCV(Zt 2) fCVEtll 170^19 
1 »DPTO < I ) »DRPMT( I UET AT(I ) ,GAM{ I ) , I t MW < I ) t P C HAM ( U , POWp ( I } ,POr?T < I) , WR I TH9 1 S 
2PT0U J ,R t RPHP,RPNPo^ I ) ,RPMTU ) ,S,TCU> # T J MEF * ToRP U) i TORT ( I ) # T TO U WR I T09 1 6 

3> tUCI) tWN0Z< ! ) |WP f vyToNOZt I 1 9 x t »XZ 9 WRU09 17 

* GO TO 1910 WRItOMQ 

C OUTPUT DETAILED PRINT ON ACCUMULATOR WR1T0919 

J 33n CONTINUE WRIT0920 

WRITE U»2lO)OUM,DPAcC t IDUM , IDUMl , IDUM2,IDUM3|NNNN t PACC( loUWJ f PRppWR j T 092 I 
l *PTEMP nouwi »10UM3 ) >TIME P WTEMP<JDUM1|IDUM3) WRIT092Z 

GO TO HIO WR I T0423 

C OUTPUT DETAILED PRINT ON LINE AND CONSTANT CALCULATIONS WRIT0929 

c from regulator WRlT0^2S 

135c CONTINUE WRIT0926 

WRITE f 6 # 230 ) aREG< J&UMI # NT 0UM) ,DMCl >DMC2 p DmC 3 ?DMC9 9 IOUMI # 1DUM J l p ID^R IT0927 
1UM1P , TOUMJJt NTDUM #PD »PU*PTEMP ( loUMJ I « l OUM J J > * T 1 ME P V/W WRIT 092 8 

GO TO mO WRIT0H29 

C OUTPUT NEWTQN-R aPHSON LOOP DATA FROM REGULATOR RoUTTNE 

137f CONTINUE WRIT0931 

WRITE (6 ,250 )OFW,F\V t IDUMi I * I DUH I P t I D^M J J ? 0 I 0 UM , 02QUM , T t ME P WTEMP l l O^R 170*32 
1UMI I , JDUMJJl »WW WR I TP 93 3 

GO TO mo WR1T0939 

C OUTPUT FINAL REGULATOR CALCUlATJOn S V/RITQR35 

1390 CONTINUE URIT0936 

WRITE (6,270) AREG ( I OUM j »NTDUM> , I OUM I , NTDU M t PD , P TEMP < I DUM T I t I DU M JU ) WR I TO 9 3 7 
1 ,PU,Q1DUH,Q2DUM,TIME WRIT093S 

GO TO M10 WRIT0M3 9 

Min CONTINUE WRlTOMHO 

RETURN WRJT0991 

END WRITQ992- 


END OF UNIVAC MOS FORTRAN V COMPILATION# 0 o D I AGN05 t I C<* MESSAGE ( S ) 


WRITE 


SYMBOLIC 

31 ADO 7) 

12135:30 

0 

01552332 

19 

(f 93 

write 

CODE 

RELOCATABLE 

31 AUG 7 | 

12135:30 

1 

01566,2, 

39 

I 






0 

01566550 

19 

285 


^DELETED) 

(DELETED! 
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5.5 Program Storage 


Starting ADDRESS 014000 

CORE LIMITS OIROOO 037556 lOOOPp 15S276 143772 163777 


HPO 1 4 A 

0 loooon-ioisor 

1 0 1 HOPO-D 1 5304 

NSToPS/CODE 
l 0 1 5305-fjl 5322 

NIERS /CODE 

0 101501-101501 

1 015323-015623 

2 101502-101573 

nfht* /CODE 

1 015624-016507 

2 101574-|01 607 

NFTVS /CODE 
1 016510-016532 

NcNvTS/cOQF 

1 016533-016742 

2 101610-101673 

noTins/code 

1 0167 43-0 17 351 

2 101674-101736 

FPAC* S/COOE 
1 017352-017415 

DEPTH /*«**.• 

0 101737-101744 

NJOINS/COOE 

1 017416-0)7464 

2 10I74S-IC1775 

NERRS /CODE 

0 101776-1C2136 

1 0 17 46S-' 1 2r073 



S!*cOS/rn*e: 

1 C2007H--20 I 63 

2 107137-'*?] 7? 

SQRT /fODF 

0 102173 ->n??27 

2 |0223p-i C227 1 

WEXP6S/C00C 

! 020i64-~2M7S 

2 102277-1 nj??72 

NXP A FS/ C OnE 

1 020176-^20320 

2 102273-102777 

NXPaXS/COOF 

1 020321^20343 

2 102300 - 1023 "'' 

E*P /COOF 

1 020344-020434 

2 102301-1023?" 

At °G /CODE 

1 020435-^20516 

2 102321-102367 

KESG3 /CODE 
2 1 0 2 37C“ 102377 

HESG 1 2/0000 
2 1 0?40n - 10 2^17 

nlinps/cooe 

0 10242p-« 02426 

1 020^17-^221^6 

2 102427-1026^1 

N t N] NS/COdE 

1 0221 07-P22254 

2 102602-1^2632 

NTApS /CODE 
0 102633-102766 

DMSFl L/COpE 

0 102767-1^30^6 

1 022255-^22360 

FMERR /code 

0 1 03007-1 C3 n U 

1 02236 1 -M2237 1 

PBtF /COdf 

0 1 0301 1 -l 03H54 

1 02237?- 12303 t 
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INTERP/COpE 

0 1 03055" 1 0 322*) 

1 023032-023271 

NOUT* /CODE 

0 103225-103231 

1 023272-024163 

2 1 03232- 1 03247 

NbOC v S/cO()E 
0 10325o-103‘)3‘) 

RIClNS /CODE 

0 103435-103*174 

1 024164-024401 

VAL /CODE 
0 1 03475- 1 035 1 1 

| 024407-024576 

ACC /CODE 

0 1035!2-103S<)3 

1 024577-025444 

REGL /CODE 

0 103544-1036 1 6 

1 025445-026337 

F0L /CODE 

0 103617-103653 

1 026340-026604 

JUNcL /CODE 

0 103654-103724 

1 026605-027111 

VALVEL/COOE 

0 103725-103772 

1 027112-027460 

PBL /CODE 

0 103773-J04022 

1 027461-027722 

PIPEL /CODE 

0 104023-104061 

1 027723-030157 

WRITE /CODE 

0 1 04062-1 0557*1 

1 030160-034025 

NF0UT3/C0DE 

1 034026-034250 

2 105575-105576 


N0UFF S/COqE 



| 034291 -*34772 

2 inS577" IP6607 

nrwnds/code: 

1 0 Vl273-''34365 

DaTa^ /•«■>*** 
o I06A1D- I lnn n 7 

CR2TAP/C0OE 

0 1 1 00 1 0- 1 | nl 

1 034366-034563 

ninpts/code 

0 110127-110130 

1 Q34564-P35Sp3 

2 l 1 013 1-1 101 63 

clock /coof 

0 11016*4-1 10! 

1 03550*4-^3^56*1 

CHAM /CODE 

0 1 10167-1 1035*4 

1 035S6s-P375nO 

NEXP53/C0DE 

1 037501-037556 

2 U0355-MC357 

D A Ta 1 / • a • o *o 
0 1 1 0360- l 1 0*4 1 3 

V At VCM/<» o a <• 

$ 0 11041 *4- 1 1 2*43*1 

values/»»o*<«» 

0 112*135-1 12444 

REGLCM/**o*#* 
o 112445-114245 

PBLFCM/*** ® «* 

0 114246-120262 

pblcom /**»**« 

0 120263-122271 

JU N C LC / • o « 

0 122272-122366 

FLAGS /«*«*«* 

0 122367-122374 

FPLCOM/**» <•*« 

0 127375-124371 


D AT A 2 



0 124372-124453 

CHAMBR/.*»««. 

0 124454-131301 

ALLCS /•♦«•*« 

0 131302-131351 

A L L c 0 H / • • » » « o 

0 1 3 135?- I 552«6 

ACCCO»/»«o®*« 

0 155247-155276 


END OF ALLOCATION 1 1 n3 OQ39A 09099 


M 

<y> 
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